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Liebe Leserin, Lieber Leser, 


Als unser Verlag im März des vergangenen Jahres 
die erste Zeitschrift spezifisch für Homecomputer 
herausgab, waren wir überzeugt, daß 1983 das erste 
große Hobby-Computerjahr werden würde. 

Die Verkaufsziffern, die die Computerindustrie 
anläßlich des letztjährigen Weihnachtsgeschäftes 
meldet, bestätigen dies eindrucksvoll. Noch nie 
wurden in unserem Lande mehr Computer fürs 
Heim verkauft. Der Handel wurde völlig über- 
rascht, denn weit mehr Geräte hätten verkauft wer- 
den können; leider waren die Läger leer. 

Wie kann so etwas passieren? Seit Monaten gibt es 
sogar im Fernsehen (was etwas heißen will) Be- 
richte über die immer größer werdende Zahl von 
Computerhobbyisten. Die Computerabteilung der 
Kaufhäuser und jugendfreundlichen Computer- 
shops erlebten einen Ansturm wie nie zuvor. 
Trotzdem glaubte man offensichtlich, daß diese 
jungen Leute nur spielen, nicht jedoch einen eige- 
nen Computer besitzen wollten, um programmie- 
ren zu lernen, damit sie sich ein Sprungbrett für die 
Zukunft verschaffen. 

Offensichtlich haben hier die Manager, ob in der 
Verlagsindustrie, der Softwareindustrie, aber vor 
allem in den Medien, den Zug verpaßt. d. h. man 
wußte scheinbar überhaupt nicht, daß ein Zug 
fuhr. Das Erwachen kam, falls überhaupt, zu spät. 
Eine Folge davon war, daß in manchen Branchen 
einige Köpfe gerollt sind. 

Hoffentlich hilf’s und man versucht, das ver- 
säumte jetzt nachzuholen. Einige Branchen haben 
sich inzwischen aus dem Schlaf erhoben, bei den 
Medien, allen voran unser Fernsehen, hat der 
Prinz sein Dornröschen noch nicht erweckt. 
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The Hobbit von Melbourne House 


für Commodore 64, für Spectrum 48 K 
und für Oric-1 


Als das Abenteuerspiel ”The Hobbit” Mitte 1983 in Deutschland 
nach seinem großen Erfolg in England populär wurde, haben wir 
dieses Programm in der Juli- Ausgabe von Homecomputer kurz vor- 
gestellt. Das Programm war anfangs nur für den erweiterten 
Spectrum zu haben. Melbourne House bietet dieses herrliche Spiel 
seit kurzer Zeit nun auch zusätzlich für den Commodore 64 und den 
Oric-1 (48 K) an. 


Nachdem es in der Zwischenzeit schon 
eine Menge Hobbit-Fans gibt, wollen 
wir diesmal einen ausführlichen Be- 
richt über dieses Adventure bringen. 
Die Story von Bilbo Beutlin, dem klei- 
nen Hobbit und seinen Freunden aus 
dem Reich der Zwerge, Feen, Elfen und 
Drachen ist sehr vielen Menschen, 
Jungund Alt, bekannt. Dafür hatschon 
die Verfilmung des "Herrn der Ringe”, 
in dem die sagenhaften Gestalten aus 
den Romanen von J.R.R. Tolkien vor- 
kommen, gesorgt. Auch die Bücher 
Tolkiens finden nach wie vor guten Ab- 
satz. So lages relativ nahe, diesen Stoff, 
in dem das Abenteuer praktisch hinter 
jeder Ecke lauert, dem Heimcomputer 
einzuverleiben. 

Diese wirklich große Aufgabe hat sich 
ein Team von Programmierern gestellt 
und nach gut 18 Monaten Arbeit auch 
beendet. Das Ergebnis dieser Mühen 
ist das hier vorliegende Programm, 
welches von führenden Zeitschriften in 
England als ein "Meilenstein der Pro- 
grammierkunst für Microcomputer” 
enthusiastisch gefeiert wurde. Und das 
ist, wie wir meinen, auch keinesfalls 
übertrieben. Entwickelt wurde dieses 
Programm auf einem TRS-80 Com- 
puter und später für den 48-K 
Spectrum und wurde jetzt auch für den 
Commodore 64 und den Oric-I 
umgeschrieben. 

Die Grafik dieser Computer istähnlich 
hochauflösend. Schaut man sich die 
verschiedenen Versionen aufdem Bild- 
schirm an, wird man kaum einen Un- 
terschied erkennen: Sie ist bei allen 
gleich schön. man kann auch sagen 
ästhetisch. 

Die Handlung des Programmes ist 
weitgehend dem Ablauf der Erzählung 
Tolkiens nachempfunden. So ist es 
auch nur folgerichtig. daß gemeinsam 
mit dem Programm das dazugehörige 
Taschenbuch mitgeliefert wird. Aller- 
dings leider wie so oft, nur in englischer 
Sprache. Eine deutsche Übersetzung ist 
nicht vorhanden und wird bei diesem 
sehr komplexen Programm wahr- 
scheinlich auch nicht kommen. So 
braucht man halt Grundkenntnisse der 


englischen Sprache, um Bilbo Beutlin 
aufseinem gefährlichen Weg zu folgen, 
bzw. diesen an seiner Stelle zu be- 
schreiten. Eine weitere gute Hilfe i 
16-seitige Büchlein, das der Kass 
(eine Diskettenversion gibt es bisli 
nicht) beigefügt ist. 


Zur Geschichte selbst: 

Die Handlung spielt im unwirklichen 
Gebiet des Erdinneren, wo die unter- 
schiedlichen Kreaturen aus Tolkiens 
Fantasie kommen. Dies war lange vor 
der Zeit. als die Erde mit Menschen 
noch nicht überlaufen war. Der Spieler 
schlüpft in die Rolle der Titelfigur, des 
Hobbits Bilbo Beutlin. Die Aufgabe be- 
steht darin, den Zwergenschatz, der 
vom allseits gefürchteten Drachen 
Smangvorlanger. langer Zeit gestohlen 
wurde, seinem rechtmäßigen Besitzer 
zurückzugeben. Dies sind die 13 
Zwerge, die Bilbo auf seinem Weg be- 
gleiten (im Programm gibt es allerdings 
nur einen Begleiter, nämlich den Zwer- 
genkönig Thorin). Der gute Zauberer 
Gandalf ist eine weitere bedeutende 
Persönlichkeit, diedem kleinen Hobbit 
aus den gefährlichsten Situationen be- 
freit oder ihm Ratschläge erteilt. 
Übrigens, Hobbits, das sind eigenartige 
Gesellen: Sie sind von Natur aus eher 
bequem als abenteuerlustigund von ih- 
rer Statur her noch kleiner als die 
Zwerge. Von denen unterscheiden sie 
sich außerdem dadurch, daß sie keine 
Bärte haben. 


Das Programm: 

Es benötigt 40 K Byte und ist vollstän- 
dig in Maschinensprache und Data 
verfaßt. Der Ladevorgang nimmt gut 4 
Minuten in Anspruch. Der Spectrum 
kreiert während dieser Zeit ein wirklich 
hübsches Bild. auf dem der Drache 
Smang abgebildet ist. 

Der Einstieg in die Geschichte beginnt 
in der gemütlichen Wohnhöhle des 
Hobbits. 

Die Art, wie in diesem Programm mit 
den Grafiken verfahren wird, ist einer 
der Gründe für den besonderen Touch, 
den dieses Programm vermittelt. Sage 


und schreibe 30 der 80 möglichen 
Schauplätze dieses Abenteuers sind il- 
lustriert und basieren auf Zeichnungen 
eines Künstlers namens Kent Rees. Be- 
merkenswert sind die vielen Details, die 
das Auge erfreuen. Eine raffinierte Pro- 
grammiertechnik bewirkt, daß jede der 
verschiedenen Grafiken lediglich etwa 
3000 - 4000 Bytes Speicherplatz 
benötigt. 

Gut gemacht ist auch das Textfenster, 
das zweigeteilt ist: Es gibt ein Textfen- 
ster, in dem Erläuterungen und Hin- 
weise gegeben werden. Ein weiteres 
dient zur Kommunikation mit dem 
Computer, in das der Spieler seine Be- 
fehle und Fragen eingibt. Hier werden 
auch die Antworten des Computers 
ausgegeben. 

Die am häufigsten vorkommenden Be- 
fehle können über einzelne Tasten ein- 
gegeben werden. 

Hervorragend ist der (englische) 
Sprachschatz, der diesem Programm 
eingegeben wurde und der dieses über 
stupide 5-Wort-Befehle anderer Pro- 
gramme heraushebt. Das Vokabular 
umfaßt mehr als 500 Worte; für ein Pro- 
gramm von Computern dieser Größen- 
ordnung eine außerordentliche Lei- 
stung. Trotzdem sind die Reaktionen 
auf Eingaben von erstaunlicher 
Schnelligkeit! 

Leider ist es in der Kürze der uns zur 
Verfügung stehenden Zeit nur gelun- 
gen, bis zum 10. Bild vorzustoßen, ob- 
wohl auch dies bereits schon eine recht 
gute Leistung darstellt und viel Mühe 
erfordert. 

Danach verabschiedete sich das Pro- 
gramm mit der Angabe, wieviel Prozent 
des Spieles geschafft wurden. Wir ha- 
ben Zuschriften von Lesern erhalten, 
die nach monatelanger, mühsamer 
Kleinarbeit glücklich bis zum Ende ge- 
langt sind! 


Abschließendes Urteil: 

Ein Abenteuerprogramm, das diesen 
Namen wirklich verdient! Nicht gerade 
billig, dafür aber garantiert viele, viele 
Stunden gute Unterhaltung. 


The Chess Player von Quicksilva 
für den ZX Spectrum 48K 


Schachprogramme für den Spectrum, sind in genügender Anzahl 
vorhanden. Was ist also besonderes an der Version von Quicksilva, 
die sich nicht unbescheiden (aber wer ist schon bescheiden in dieser 
Branche), als die Game Lords bezeichnen. 


Nun, Quicksilva läßt den Spectrum ein 
synthetisches Gespräch mit seinem 
Partner Mensch am Rande des Spiels 
führen, was den besonderen Reiz des 
Spiels ausmacht, ihm eine persönliche, 
humane Note verleiht. Dazu gibt es 
noch eine interessante Story, die jedes 
Schachspiel zu einem Abenteuer wer- 
den läßt: Das Schicksal der Menschen 
hängt vom Ausgang dieses Schach- 
spiels zwischen dem Bösen (in diesem 
Fall ist das der Spectrum) und dem 
Meisterspieler Mensch ab. 

Nach dem Start des Programms, erklärt 
der "Chess Player” in deutlicher (natür- 
lich englischer) Aussprache über den 
Spectrum-Speaker, um was es geht. Der 
Mitspieler wird gefragt. ob er mit den 
weißen oder mit den schwarzen Figu- 
ren spielen möchte und ob er ein 
Schwarz/Weiß oder einen Farbmo- 
nitor benutzt. Danach setzt der Com- 
puter die jeweils optimalen Farben für 
Figuren, Brett und Hintergrund fest. 
Sechs verschiedene Schwierigkeitsstu- 
fen stehen zur Verfügung, von denen 
die Antwortzeit abhängt. 

Wie die meisten Programme der neue- 


ren Generation, so spielt auch der 
"Chess Player” selbst auf der einfach- 
sten Stufe noch ein respektables Spiel, 
es seidenn, Sie gehören zu den wenigen 
begnadeten Schachexperten. 
Während des gesamten Spiels tut der 
"Chess Player” gelegentlich etwas, was 
unter gestandenen Schachspielern 
schlicht verpönt ist: Er gibt Kom- 
mentare von sich wie "Ein phantasti- 
scher Zug”, "Weißt Du eigentlich, was 
Du da tust”, "Das Problem ist schwieri- 
ger als ich anfangs dachte”, "Dein Zug 
war recht gut” und so weiter. Allerdings 
haben wir manchmal festgestellt, daß 
dieser "Chess Player” nicht die größte 
Kapazität aufseinem Gebiet sein kann, 
denn ab und zu stimmten seine Be- 
merkungen nicht mit dem Spiel hun- 
dertprozentig überein. 

Wir meinen. daß Quicksilva mit diesem 
Programm seinem Anspruch, gute 
Software anzubieten, voll und ganz ge- 
recht worden ist. Die synthetische 
Sprache und die irre gut gemachte Gra- 
fik, vervollständigen den "Chess 
Player” zu einem wirklich empfehlens- 
werten Programm. 
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FREN ZY von Quicksilva 


für den Spectrum 16/48K 


Weil es vorhin so schön war, wollen wir gleich noch ein weiteres Pro- 
gramm von den ”Game Lords” vorstellen und sehen, ob auch dieses 
den hohen Standard hält. 


dem bösen Orville versuchen, den Spie- 
ler bzw. seine Figur zu vernichten. 
Das Spiel läuft sehr flüssig ab und 
nachdem man sich an die Ta- 
stenkontrolle gewöhnt hat, macht es 
eine Menge Spaß. Noch mehr Spaß 
gäbe es. wenn ein Joystick benutzt wer- 
den könnte. 

Facit: Auch mit diesem Programm 
braucht sich Quicksilva nicht zu 
verstecken. 


Es handelt sich bei Frenzy um ein 
Weltraumspiel nach bekanntem 
Strickmuster. 

Nach dem Laden erscheinen alle be- 
nötigten Instruktionen, in übersicht- 
licher, jedoch natürlich englischer 
Form, auf dem Bildschirm. 

Nach Eingabe des Start-Kommandos 
sieht man ein Labyrinth. Dieses stellt 
die verschiedenen Korridore einer 
Raumstation dar. Dort hausen fünfver- 
schiedene Roboter, die gemeinsam mit 
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die sich aus der Masse ähnlicher 
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iff bewegt sich ohne 
Rucken sehr realistisch. Ohne Joystick, 
also über die Tastatur des VC-20, ist das 
Programm allerdings nur schwer ZU 
kontrollieren. 
Drei Schwierigkeitsgrade stehen zur 
Verfügung und machen das Spiel sehr 
unterhaltsam. Von Zeit zu Zeit erschei- 
nen kleine Objekte. Gologs genannt, 
auf der Bildfläche. Man kann sie zer- 
stören. Wie, das wollen wir nicht 
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City Defence von Shardssoftware 


Man kennt sie unter 
Städtevertei 


staltung dieses 


Eine schöne, bunte Stadtsilhouette 
zeigt, was der Dragon zu leisten ver- 
mag. Die aufsteigenden Raketen und 
übrigen Grafikzeichen sind exzellent 
gemacht. Dies trifft ebenso für die Be- 
gleitmelodie zu. Etwas Schwierigkeiten 
hatten wir mit der Auf-und Abwärtsbe- 


digung. Die vorliegende Fassung, 
Ihrem Ablauf erneut erläutert werden. So wollen w 
Programms widmen. 
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Maschinencode geschriebenen Pro- 
gramme, kommt einem dieses hier 
doch etwas ärmlich und überholt vor. 


wegung des von Uns kontrollierten 
Flugzeugs. Der Dragon-Joystick rea- 
giert sehr nervös auf jede Berührung. 

Nachdem der Flug begonnen hat, er- 
scheint die Scoreanzeige auf dem Bild- 
schirm. Für nicht abgeschossene Geg- 
ner werden jeweils 100 Punkte 


Programmiertips 


für den Sinclair Spectrum II 


Wir wollen das Sinclair-Basic um einige grafische Eigenheiten er- 

gänzen, die sich so nicht im Betriebssystem finden: 

1. Bildschirm mit 256 x 192 Punkten (2 Print-Zeilen mehr) 

2. Beliebig viele UDGs (user defined graphics), beliebig groß, aber 
mit komplizierterem Aufruf. 

3. Möglichkeit, diese UDGs um einen Bildpunkt zu bewegen, nicht 
nur um eine Printposition. 


Die folgenden Programme sind in 
ihrem Zusammenhang nicht einfach 
zu verstehen und erfordern einiges an 
Arbeit und Konzentration. Aber - der 
Effekt spricht dann für sich! Lassen Sie 
sich nicht mehr ärgern, wenn jemand 
zu Ihnen sagt: "Ach, Du programmierst 
in Basic”. In fast allen Fällen sind es 
stolze Besitzer von guten Arcadespie- 
len, deren Programmierkenntnisse je- 
doch mit LOAD ”” bald zu Ende sind. 
Wenn Sie aber gute Basic-Programme 
geschrieben haben, wissen Sie, was 
wirklich verbessert werden muß - die 
Grafik. Sie soll schnell und ruckfrei 
sein, möglichst gleitende Bewegungen 
wiedergeben. Und das geht nun mal 
nicht mit Basic. 

Beginnen wir mit Listings: Poken Sie 
mit dem kurzen Basic-Listing die 
Input-Werte (das Maschinenpro- 
gramm) in den Speicher. Das Basic- 
Programm enthält eine Testroutine mit 
der Checksumme aller Bytes. Wenn Sie 
das ausgeführt haben, speichern Sie 
das Maschinenprogramm mit SAVE 
"M” CODE 62600, 2000. Die Länge er- 
klärt sich aus der Tatsache, daß auch 
der Poke-Wert in 62629 gleich mitge- 
saved wird. Jetzt greifen Sie zu Papier 
(Karomuster) und Bleistift und lassen 
Ihre Phantasie spielen. Entwickeln Sie 
Monster, Raumschiffe oder ähnliches. 
Anschließend wird die Grafik kodiert. 
Beachten Sie dazu Skizze 1 und die 
Tatsache, daß erst alle Bits waagerecht 
über die gesamte Breite kodiert werden 
müssen. Ist die Gesamtbreite nicht 
durch 8 teilbar, so wird der Rest mit 
Nullen aufgefüllt. Zur Eingabe Ihrer 
Grafik in den Speicher benutzen Sie 
Programm 5. 


1 


FD2ANaF4 
FD22n2F4 
EDSSAITA 
ECD2AHSF4 
EDasasra 


An folgenden Stellen dürfen Sie keine 
Codes ablegen: 62624-62639, diese wer- 
den als Arbeitstabelle des Maschinen- 
programms benutzt, und nach 64000- 
64207 auch nicht, denn dort steht das 
Maschinenprogramm. Oberhalb von 
65000 wird es kritisch, wenn Sie keine 
CLEAR-Anweisung geben; dort sitzt 
der Basic-Stackpointer, der Ihre Codes 
zerstören könnte. Schreiben Sie sich 
die Werte, die das Programm 5 ausgibt, 
unbedingt auf, desgleichen die Adres- 
sen, in die die Werte gepoked werden. 
Es sind die Werte für die Größe Ihrer 
Figur und dessen Adresse, Werte, die 
das Maschinenprogramm später be- 
nötigt. Wenn Sie alle Figuren an Hand 
des Musters und mit Programm 5 ein- 
gegeben haben, speichern Sie alles ab. 
Optimal ist es natürlich mit dem Ma- 
schinenprogramm zusammen. 

Das Maschinenprogramm (1-3)macht 
folgendes: 

Routine 3 lädt x/y-Koordinaten, ruft 
Routine 2. Dort werden die Koordi- 
naten in Bildschirmadressen um- 
gerechnet und in 62624 abgelegt. 
Dann wird Routine 1, die eigentliche 
Plot-Routine, aufgerufen. Ein Aufruf 
aus Basic umfaßt also nur Routine 3, 
die alles erledigt. Das Maschinenpro- 
gramm braucht aber noch folgende 
Werte: Einen Zeiger auf Ihre Figur, die 
Größe der Figur, diex/y Koordinate der 
Figur auf dem Bildschirm und eine 
Entscheidung darüber, ob die Figur ge- 
zeichnet oder rückgesetzt werden soll. 
Folgende Adressen müssen dafür ge- 
poked werden: 

62630 Pointer LSB 
62631 Pointer MSB 
62632 Senkrechte Größe 


s. Progr. 5 
s. Progr. 5 
s. Progr. 5 


07 
Tscs 
Ssaarra 


62633 Waagerechte Größe s. Progr. 5 
62634 Senkrechte Bildschirmkoordi- 
nate (y) 0-191 

62635 Waager. Bildschirmkoordinate 
(x) 0-255 

und 64040 mit 198 für Plot und 134 für 
Unplot entsprechend. Der Aufruf für 
die Maschinensprachenroutine ist 
RANDOMIZE USR 64192, nachdem 
die Werte eingepoked sind. 

Folgendes sollte jedoch beachtet wer- 
den: Die Maschinensprachenroutinen 
überprüfen nicht, ob Ihre Figur auf den 
Bildschirm paßt. Die Figur selbst wird 
von links oben geplottet. Bedenken Sie 
dies bitte bei der Wahl der Koordi- 
naten, um böse Überraschungen 
auszuschließen. 

Anders als im Basic-Betriebssystem 
liegt die P-Koordinate für y oben links, 
unten ist folglich 191. Die x-Koordi- 
naten werden von rechts nach links ent- 
wickelt, wie üblich. 

Testen Sie erst Programm 6 aus, wenn 
Sie sich nicht sicher fühlen oder erst 
mal sehen wollen, was das Maschinen- 
programm leistet. 

Dieses Grafikprogramm arbeitet nach 
dem Prinzip -OR-, das heißt, nur die ge- 
setzten Punkte Ihrer Figur werden ge- 
plottet, Nullen werden übersprungen. 
Das bietet die Möglichkeit, Figuren 
übereinanderzulegen ohne zu löschen. 
Es ist schneller als die Routine des Be- 
triebssystems. Mit Plot - Unplot - Neue 
Koordinaten - Plot- Unplot können Sie 
beachtliche Geschwindigkeiten mit 
komplexer Grafik erzielen. Diese Art 
Grafiken zu erzeugen, läuft sonst unter 
dem Begriff ”shape” oder ”sprite”. 
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Tips & Tricks 


für den ZX-81 


Verkürztes saven und laden eines 
Programms! 


Der ZX-81 hat die Eigenart, beim Saven 
den leeren Bildschirm vor und nach dem 
Savevorgang mit aufzunehmen. Dies 
kann man unterbinden, wenn man das 
nachfolgende Programm eintippt. 

FOR I=0 TO 21 

SCROLL 

NEXTI 

SAVE "PROGRAMMNAME” 

FAST 

CLS 

SLOW 

RUN 

Diese Routine kann mit jeder Zeilennum- 
mer nummeriert werden und ersetzt den 
einfachen Befehl: SAVE ”PRO- 
GRAMMNAME”!! 
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Tips & Tricks 
für den Dragon 32 


Folgende Editier-Befehle lassen sich auf 
dem Dragon 32 ausführen und sind nicht 
im Handbuch erklärt: 

E: Verlasse den Editor und übernehme 
die geänderte Zeile. 

Q: Verlasse den Editor und übernehme 
die Zeile ohne die eingefügten 
Anderungen. ee 

A: Alle eingefügten Anderungen einer 
Zeile werden gelöscht und die 
ursprüngliche Zeile ist noch im Edi- 
tier Modus. 


Hardwaretips 
für den Dragon 32 


Die ersten Dragonmodelle konnten den Befehl POKE & 
HFFD7,0 zur Verdopplung des Systemtaktes verarbeiten. Die 
nachfolgenden Dragonmodelle, konnten diesen Befehl leider 
nicht ausführen, bedingt durch Anderungen, die in der laufenden 
Produktion vorgenommen wurden. Diese Geräte quittierten die- 


sen Poke-Befehl mit einem Systemabsturz! 


Eine kleine Änderung auf der Platine 
machtes möglich, daß auch Ihr Dragon 
32 diesen Poke-Befehl ausführen kann. 
Beachten Sie aber bitte, daß bei einem 
solchen Eingriff die Garantie erlischt! 
Schrauben Sie Ihren Dragon los. Diese 
Schrauben sind unter den vier 
Garantiesiegeln angebracht. 

Sie schauen nun auf die Be- 
stückungsseite der Hauptplatine. Die 
Messerleiste für die ROM-Module liegt 
rechts, Joystick-, Recorder- und TV- 
Buchse liegen links! 

Auf der Platine befinden sich zwei 
Quarze. Einer für den Videobereich, 


der andere für den Takt. Unter diesem 
Taktquarz befindet sich ein soge- 
nannter Trimmer. Es ist ein veränder- 
barer Kondensator. Dieser Kon- 
densator verhindert, daß die CPU den 
Poke-Befehl nicht ausführen kann. 
Dieser Trimmer ist nun vorsichtig zu 
entfernen. 

Löten Sie den Trimmer nun aus. Verge- 
wissern Sie sich, daß keine Lötzinnreste 
ungewollten Kontakt herstellen! 

Ist alles in Ordnung, schalten Sie Ihren 
Dragon ein. Er muß sofort die Begrüs- 
sungszeilen anzeigen! Geben Sie nun 
den Befehl POKE & HFFD7,0 ein. 


Der Cursor muß nun schneller blinken. 
Ist das der Fall, setzen Sie den Takt mit 
POKE & HFFD6,0 zurück. 

Sie können nun den Dragon wieder 
zuschrauben. 

Mit diesem Poke-Befehl lassen sich 
langsame Basic-Programme schneller 
gestalten. Zum Aufzeichnen auf Band, 
muß dieser Befehl rückgängig gemacht 
werden. Sonst wird das Programm feh- 
lerhaft geladen! 

Verdopplung des Systemtaktes mit 
POKE & HFFD7,0 

Rücksetzung mit 

POKE & HFFD6,0 


. n 
„ont Korrektur 
zum Spiel ” Antares”, Heft 1/84 
für den ZX-81 


Eine technische Panne ist schuld daran, daß die ZX-81 Besitzer, 
das Spiel ”’Antares” nicht spielen können. Der Fehler tritt nur in 
dem Listing in Zeile 4120 auf. Der Cassettenservice ist nicht be- 
troffen! Diese Zeile muß richtig lauten: 

4120 LET T=(D+E+(5°X))’B+INT (C/1000) 
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HARDWARE -TIPS 
Reset-Taste 


für den ZX-81 


Ein kleiner Eingriff in den ZX-81 ermöglicht eine Resetfunktion. 
Der Kostenaufwand ist so gering, daß man vor diesem nicht zurück- 


schrecken muß. 


Die Reset-Taste ermöglicht das Rück- 
stellen des Rechners Z 80 A CPU auf 
Null. Dies ist besonders dann nützlich 
und erforderlich, wenn der Rechner 
(mal wieder) abgestürzt ist. 
Normalerweise müßte man danach die 
Stromzufuhr unterbrechen, damit er 
nach dem Einschalten wieder normal 
arbeiten kann. 

Diese umständliche Prozedur erledigt 
nun die Reset-Taste, die bequem in das 
ZX-Gehäuse paßt. Damit man nicht 
versehentlich diese Taste drückt, ist sie 
”versteckt” anzuordnen. Am besten: 
Linke Seite oben oder rechte Seite 
oben!! 

Einbau: 


Schrauben Sie Ihren Rechner vor- 
sichtig los. Nehmen Sie die IC’s vor- 
sichtig (!!) aus ihrer Fassung. Löten Sie 
einen Schaltdraht an den 26. Anschluß 
der CPU und verbinden Sie ihn mit 
dem einen Pol des Tasters. Den ande- 
ren Pol des Tasters verbinden Sie mit 
dem Minuspol (Masse) des Rechners. 
Minus bzw. Masse liegt an dem Kühl- 
blech des Spannungsreglers oder an 
dem Gehäuse des UHF Modulators, 
ebenso führen einige Leiterbahnen des 
ZX-81 Masse. 

Achtung: 

Vorsicht bei Arbeiten am ZX-81! 
Einige IC’s sind empfindlich gegen- 
über statischer Elektrizität! Es emp- 


fiehlt sich daher, einen Gegenstand 
zu berühren, der Masse führt! Z. B. der 
Erdungspol einer Steckdose. Auch der 
Lötkolben sollte (und muß) geerdet 
sein! 

ZX-81 Besitzer, die ihr Gerät selber zu- 
sammengebaut haben, wissen nach 
dem Studieren des abgebildeten 
Schaltplanes und des ZX-Schaltplanes 
schon Bescheid. Der Reset ist auch auf 
der Bestückungsseite der Platine an der 
Messerleiste vorhanden! Das wäre 
dann der 3. Anschluß von links. 

Die Redaktion übernimmt keine Ver- 
antwortung für die Inbetriebnahme der 
abgebildeten Hardwaretips!! 
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Korrektur 


zum Programm ”Schatztaucher” 
für den ZX-81 


Sie geben in der 1. Zeile dieses Programms 20 x -beliebige Zeichen ein. Dann werden 
mit einem einfachen MC-Monitor die Werke eingepoked. Ein einfacher Monitor ist 
zum Beispiel: 

10 FOR A = 16514 to 16534 

20 SCROLL 

30 PRINT A; ”-”; 

40 INPUT B 

50 PRINT B 

60 SCROLL 

70 POKE A,B 

80 NEXT A 

Die Werte sind: 42, 12, 64, 6, 23, 43, 35, 126, 254, 118, 32, 3, 16, 248, 201, 198, 128, 
119, 24, 242. 

Dieses kurze MC-Programm bewirkt eine inverse Darstellung des Bildschirminhalts! 
Der Aufruf erfolgt mit Rand USR 16514. Dieses MC-Programm findet bei vielen 
ZX-81 Programmen Verwendung. 
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CLIFFORD & MARK 
RAMSHAW 


Spectrum Hardware Manual 
von Adrian Dickens 


Der Sinclair ZX-Spectrum hat die Computerwelt 
revolutioniert. 

Dieses Buch erklärt das Geheimnis seines 
Erfolges und wie das Gerät arbeitet. Viele 
Aspekte, die das offizielle Manual nicht oder nur 
kurz streift, werden Ihnen hier ausführlich 
vorgestellt: Wie die Farben Ihres TV-Monitors 
optimal eingestellt werden können, wie der 
interne Lautsprecher durcheinen anderenersetzt 
wird und vieles mehr. 

Dazu wird gezeigt, wie der Spectrum mit 
zusätzlicher (auch selbstgebauter) Hardware 


aufzurüsten ist. 

DM 29,80 
OVER THE 
AR »ıEl,V, 


„ COMMODORE 64 Games Book 


von Clifford und Mark Ramshaw 


Erleben Sie die Fascination der Computer- 
Technik! 

Die Brüder Ramshaw gelten in England als die 
Nummer 1 in Sachen Commodore programmie- 
ren und dieses Buch wurde von der Fachpresse 
als eines der besten für den CBM 64 gelobt. 
Jedes der hier vorgestellten Programme macht 
hervorragenden Gebrauch von den Fähigkeiten, 
die den Commodore 64 gegenüber anderen 
Geräten seiner Preisklasse auszeichnen. 

Kein Commodore-64-Anwender sollte dieses 
Buch in seiner Sammlung missen. 


DM 29,80 


u) 


Over the 


Spectrum 


Ein Buch, das alle Wünsche von Spectrum-Fans 


VG-20 Innovative Computing 


von Clifford Ramshaw 


Ein Buch, geschrieben von einem der kreativsten 
Programmierer in der Microcomputer-Welt! 

Spannende, interessante Spiele wie Nuclaer 
Attack, Space Fight, Hopper, Invasion, Squash, 
Golf, Grand Prix, Adventure, und sogar Schach! 
Komplette Listings all dieser und weiterer Spiele, 
leicht verständlich mit vielen Tips und Tricks 
angereichert, eröffnen Ihnen neue Dimensionen 


Ihres VC-20. 
z DM 29,80 


erfüllt: 

Komplette Listings von mehr als 30 Progra: 
die zeigen, was in dem kleinen schwarzen Kası en 
an Kraft und Raffinesse steckt! 

Die Palette reicht von Geschicklichkeitsspielen 
wie Frogger, Meteor Storm, Eliminator über 
Strategie-Spiele wie Schach zu echten Adven- 
tures. 

Nützliche Winke und Tips, sowie Geschäftspro- 
gramme machen dieses Buch zu einem 
Nachschlagewerk für jeden Spectrum-Anwender 


DM 39,80 
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The Complete 
von Dr. lan 


ind Dr. Frank 0’Hara 


Der ZX-Spectrum wird von seinem eingebauten 
16-K-ROM gesteuert. 

Die beiden Autoren erläutern Ihnen den 
Interpreter und zeigen Ihnen, was der Spectrum 
tut und was dabei in ihm vorgeht. 

Im Detail: Befehlsroutinen, Lautsprecher, Input / 
Output, Variable und mathematische Funktionen. 
Ihr Spectrum besitzt eine große Anzahl von 
eingebauten Funktionen. Dieses Buch hilft Ihnen, 
sie zum eigenen Nutzen zu verstehen und sie in 
eigenen Programmen sinnvoll einzusetzen. 

Ein Muß für alle engagierten Spectrum- 


Programmierer! 
DM 39,80 


Not only 30 programs je wei ZX-81 IK 
von Melbourne House Publishers 


Battleships, Roulette, Blackjack, Starwars, 
Breakout, Memory, Miniadventure, 1K-Draughts, 


Doch nicht nur 30 Programme für den ZX-81 in 
der Grundversion enthält dieses einmalige Buch: 
Jedes Programm wird erklärt, Programmiertips 
werden gegeben und viele Peeks und Pokes 
erläutert. 

Ein Buch, das zeigt, was in 1 K stecken kann! 


DM 29,80 


ENTER THE DRAGON 


von Colin Carter 


Eine Sammlung kreativer Programme für den 
Dragon 32. Das Buch enthält komplette Listings 
für viele der bekannten Arcade- und Abenteuer- 
Spiele wie Lunar Lander, Invaders, Meteor Storm, 
3-D-Treasure Hunt, Flightsimulator und viele 
andere. 

Viele Programme nutzen die hervorragenden 
Möglichkeiten der Dragon Highresolutiongrafik. 
Enter The Dragon zeigt Ihnen sogar, wie Sie 
Ihrem Drachen das Sprechen beibringen können. 
Dazu eine Menge Tips und Informationen, die für 
den Beginner ebenso nützlich sind, wie für den 


Fortgeschrittenen. 
DM 28,80 
u) 


jectrum ROM Disassembly 


Meteoric Programming for the ORIG 1 
von John van der Reyden 


A etw für wenig Geld bietet Ihnen dieses 
uch. 

30 speziell für den ORIC 1 entwickelte 
Programme: z.B. Luna Lander, Eliminator, Sea 
Copter und viele mehr, die Ihnen zeigen, welche 
Farben, Grafiken und welch herrlichen Sound der 
ORIC produzieren kann. 

Selbsverständlich fehlen auch praktische Tips 
nicht, die für alte Hasen ebenso interessant sind, 


wie für junge Füchse! 


Eine ideale Ergänzung dieses Computers! 


DM 29,80 
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Games for your ZX-81 
Games for your ZX Spectrum 
Games for your Atari 
Games for your BBG Micro 


Bücher, die mehr aus Ihrem Computer machen! 
Jedes einzelne Buch enthält mehr als 20 komplette, spielfertige 
Programmlistings für den betreffenden Computer. 


Alle Programme werden erläutert und sind mit 
Bedienungsanleitungen versehen. 


Ein Computerlexikon, das alle wichtigen Begriffe aus der 
Computerterminologie enthält, vervollständigt den Inhalt 
jedes Buches dieser Reihe. 
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Synthimat von Data Becker 


Der Musikprofi für den Commodore 64 


Ein Gebiet, auf dem die Firma Data Becker aus Düsseldorf beson- 
ders stark ist, sind Bücher und Software der gehobenen Klasse, für 
den neuen Marktrenner in der Bundesrepublik, den Commodore 


64. 


Viele Anwender dieses Computers sind 
natürlich an den oft gepriesenen 
musikalischen Fähigkeiten des 64er in- 
teressiert. Wie die meisten Commo- 
dore-Handbücher, so bietet auch das 
Manual des CBM 64 nur spärliche Hin- 
weise auf seine Möglichkeiten. 

Daher ist es für diese Anwender beson- 
ders interessant, daß Data Becker ein 
Programm auf Diskette mit der Be- 
zeichnung Synthimat anbietet und 
dieses wird durch eine 74-seitige Doku- 
mentation, die diesem Namen auch 
wirklich verdient, ausreichend erklärt. 
Autor dieses Programmes ist der 20- 
jährige Thomas Dachsel, Informatik- 
Student, derbereits seitseinerSchulzeit 
mit Commodore-Rechnern vertraut ist 
und der auch das selbst in den USA be- 
kannte Programm "Synthesound” fü 
den VC-20 entwickelt hat. Das vorlie- 
gende Programm Synthimat 64 wurde 
mit dem Data Becker-Paket "Profimat” 
in 300 Arbeitsstunden erstellt und um- 
faßt 35 K Byte Quellenprogramm und 8 
K Byte Objektprogramm. 

Synthimat ist einem Synthesizer derart 
nachempfunden, daß selbst Profis ihre 
helle Freude hieran haben werden. Die 
reichhaltigen Möglichkeiten lassen 
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Solo-Tastatur 


Begleittastatur 


sich in diesem Artikel nur stichwort- 
haft anreißen. 

Schon der Bildschirmaufbau (s. Foto) 
beweist die Kenntnisse des Programm- 
erstellers in Sachen Musik. Man glaubt 
tatsächlich einen Vox oder Moog vor 
sich zu haben. Schalterund Drehregler 
werden durch Zahlenwerte und Wel- 
lenformzeichen dargestellt. 

Der Commodore Sound-Chip kann 
vier Grundwellenformen (Sägezahn, 
Rechteck, Rauschen und Dreieck) so- 
wie vier Kombinationswellenformen 
erzeugen. Über die Funktionstasten ist 
es möglich 3 Stimmen, die aus diesen 
Grundwellenformen erzeugt werden, 
anzuwählen, ihre Tonlage zu verän- 
dern und die Hüllkurven zu variieren. 
Diese Einstellungen lassen sich in Re- 
gistern, die über das Keyboard aufgeru- 
fen werden können, speichern -und 
auch auf Diskette ablegen, wo sie jeder- 
zeit schnell verfügbar sind. 

Wie bei einem richtigen Synthesizer 
lassen sich die Töne einzeln stimmen. 
Darüber hinaus kann man jedoch die 
Tonerzeuger zwei, voneinander un- 
abhängigen, Tastaturen zuweisen; 
Solo-, Multiplay-, Melodie- und 
Akkordmodi bestätigen die Vielsei- 
tigkeit dieses Programmes. 
Hervorragend verstand es der Autor, 
sich das Diskettenlaufwerk zunutze zu 
machen. Nicht nur die schon ange- 
sprochenen Register können gespei- 
chert und geladen werden, sondern 
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eine Direktfile-Funktion gestattet alles, 
was über die Solo- und Begleittastatur 
gespielt wird, als auch sämtliche 
Funktionen, die nicht das Laufwerk be- 
treffen, zu speichern. Es wird sozusa- 
gen eine Bandaufnahme - nur eben auf 
Diskette - vorgenommen. 

Um den Einstieg in das System zu er- 
leichtern, enthält das Handbuch eine 
Reihe von Beispielen, wie Som- 
merinsekten, Superzug, Champagner, 
Poltergeist, Stimmengewirr und viele 
andere. 

Die übrigen Möglichkeiten dieses Pro- 
grammes, um nur zu nennen Modu- 
lation, Filterfunktionen, können wir im 
Rahmen dieser Betrachtung gar nicht 
alle aufzählen. 

Für jeden an Computermusik interes- 
sierten Commodore 64-Besitzer ist 
dieses Programm eine echte Bereiche- 
rung und eine wertvolle Hilfe zu einem 
angemessenen Preis. 
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Datamat von Data-Becker 


Ein Datenautomat für den Commodore 64 


Wer hat nicht eine Fülle von Akten und Unterlagen, die mehr oder 
weniger sorgfältig aufbewahrt werden? Selbst im privaten Bereich 
ist man vor der Papierflut nicht mehr sicher. Im allgemeinen ver- 
wendet man zur Verwaltung dieser Dinge Registraturmethoden wie 
Aktenordner, Karteikarten oder schlicht ein Notizbuch. 


Für den Besitzer eines eigenen Com- 
puters sollten diese Möglichkeiten, 
seine Plattensammmlung, Videofilme, 
Briefmarken oder Adressen zu ordnen, 
natürlich ein alter Hut sein, denn dafür 
sollte man den Kumpel Computer 
nutzen. 

Für den Commodore 64 bietet Data Be- 
cker auch hier ein Programm, das diese 
Aufgaben schnell und zuverlässig be- 
wältigt: 


”Datamat” 


Mit Hilfe dieses auf einer Diskette lie- 
ferbaren Programmes können Sie 
beispielsweise 


- feststellen, auf welcher Schallplatte 
sich ein bestimmter Titel befindet, den 
Sie je nach Stimmungslage gerade hö- 
ren möchten. 


- sich die Schande und die Nachteile 
ersparen, den Geburtstag Ihrer Erb- 


tante vergessen zu haben. 


- die Mitglieder Ihres Fußballvereines 
nach unterschiedlichen Kriterien 
sortiert auflisten. 


- herausfinden, ob ein bestimmter 
Artikel noch vorrätig ist oder nicht und 
wer diesen zu welchen Konditionen 
liefert. 


Diese Liste ließe sich beliebig fortset- 
zen; die Möglichkeiten für den Einsatz 
des Datamat sind praktisch unbe- 
grenzt. 


Vorkenntnisse im Programmieren sind 
für den Umgang mit dem Datamat 
nicht notwendig. Dies wird durch eine 
fortschrittliche Menuesteuerung er- 
reicht. In allen Teilen des Programmes 
werden Sie von leicht verständlichen 
Kommandos und Fragen, natürlich in 
deutscher Sprache, geleitet. 

Das Handbuch ist, wie bei Data Becker 
üblich, sehr umfangreich und über- 


sichtlich gehalten. 

Datamat ist eine Dateiverwaltung, die 
mit Datensätzen und Datenfeldern ar- 
beitet. Alle Datensätze zusammen bil- 
den eine Datei. Einzelne Datensätze 
können beliebig gelöscht, geändert, 
sortiert oder ausgedruckt werden. 


Beliefer+ am 
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Ken cK 


Der Aufbau der Dateien kann indivi- 
duell frei gestaltet werden. Eine mög- 
liche Eingabemaske kann wie die hier 
abgebildete aussehen. 

Ihre "Kartei” kann bis zu 50 verschie- 
dene Einträge erhalten. Mit der Com- 
modore Floppy 1541 beträgt die Zu- 
griffszeit ca. 4,5 Sekunden; bis zu 2000 
Karten können verwaltet werden. Eine 
Sortierung oder Sektierung kann nach 
jedem Eintrag erfolgen. Es können Li- 
sten und Etiketten gedruckt werden. 
Ein Softwarepaket, das für den kleinen 
Betrieb gleichermaßen geeignet ist, wie 
für den privaten Bereich, zu einem äu- 
Berst günstigen Preis. 
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Endlich ein umfang- 
reiches Trainings- 
handbuch, das 
Ihnen detailliert den 
Umgang mit 
SIMON's BASIC 
erklärt. Ausführliche 
Darstellung aller 
Befehle und ihrer 
Anwendung 
Zahlreiche Beispiel- 
programme und 
Programmiertricks. 
Dieses Buch sollte 
jeder SIMON's 
BASIC Anwender 
haben! 

ca. 300 S., DM 49,- 


Eine leicht ver- 
ständliche Einfüh- 
rung in das 
Programmieren des 
C-64 in Maschinen- 
sprache und 
Assembler. 
Komplett mit vielen 
Beispielen sowie 
einem Assembler, 
Disassembler und 
einem Einzelschritt- 
Simulator. Und 
natürlich zuge- 
schnitten aufihren 
Computer, den 
COMMODORE 64. 
ca. 200 S., DM 39,- 


64 


Tips & Tricks | 


64 INTERN erklärt 
detailliert Technik 
und Betriebssystem 
des C-64 und die 
Programmierung von 
Sound und Graphik. 
Ausführlich doku- 
mentiertes ROM- 
Listing, zahlreiche 
lauffertige Beispiel- 
programme und 2 
Original-Schaltpläne 
zum Ausklappen 
Dieses Buch sollte 
jeder 64-Anwender 
und Interessent 
haben. 

ca. 320 S,; DM 69,- 


64 TIPS & TRICKS ist 
eine echte Fund- 
grube für jeden 
COMMODORE 64 
Anwender. Umfang- 
reiche Sammlung 
von POKE’s und 
anderen nützlichen 
Routinen, BASIC- 
Erweiterungen, 
Graphik und Farbe 
für Fortgeschrittene, 
CP/M, Multitasking, 
mehr über Anschluß- 
und Erweiterungs- 
möglichkeiten und 
zahlreiche lauffertige 
Programme. 

ca, 290 S.; DM 49,- 


64 FÜR PROFIS DAS GROSSE 

zeigt, wie man erfolg-_ FLOPPY-BUCH erklärt 
reich Anwendungs- detailliert die Arbeit 
probleme in BASIC mit der Floppy 


löst und verrät 
Erfolgsgeheimnisse 
der Programmier- 
profis. 5 komplett 
beschriebene, lauf- 
fertige Anwendungs- 
programme (z.B. 
Adreßverwaltung) 
illustrieren den Inhalt 
der einzelnen Kapitel 
beispielhaft. Mit 
diesem Buch lernen 
Sie gute und erfolg- 
reiche BASIC- 
Programmierung. 

ca. 220 S., DM 49,- 


VC-1541, von der 
sequentiellen Daten- 
speicherung bis 

zum Direktzugriff, für 
Anfänger, Fort- 
geschrittene und 
Profis. Ausführlich 
dokumentiertes 
DOS-Listing, zahl- 
reiche lauffertige 
Beispiel- und 
Hilfsprogramme, z.B. 
Disk Editor und Haus- 
haltsbuchführung. 
ca. 320 S.; DM 49,- 


was Sie schon immer uber 
Ihren COMMODORE wissen wollten 


ı VC-20 


Tips & Tricks 


VC-20 INTERN ist für 
jeden interessant, 
der sich näher mit 
Technik und Maschi- 
nenprogrammierung 
des VC-20 auseinan- 
dersetzen möchte. 
Detaillierte tech- 
nische Beschreibung 
des VC-20, ausführ- 
liches ROM-Listing, 
Einführung in die 
Maschinenprogram- 
mierung und 3 Origi- 
nal-Schaltpläne. 

ca. 230 S.; DM 49,- 


VC-20 TIPS & TRICKS 
ist eine echte Fund- 
grube für jeden 
VC-20 Anwender. 
Sound und Graphik 
Programmierung, 
Speicherbelegung 
und Speichererwei- 
terung, BASIC-Erwei- 
terungen, POKE's 
und andere nützliche 
Routinen, zahlreiche 
lauffertige Beispiel- 
und Anwendungs- 
programme und 
vieles andere mehr. 
ca. 230 S.; DM 49,- 


Gute Software muß nicht teuer sein! 


Die neuen DATA BECKER PROGRAMME - Spitzensoftware auf Diskette mit ausführlichem Handbuch zu 
unglaublich niedrigen Preisen. Drei aktuelle Beispiele: 


3enelux COMPUTERCOLLECTIEF. 


SUPERGRAPHIC 64 


Die neueste Version unserer belieb- 
ten SUPERGRAPHIC enthält jetzt 
über 30(!) Befehle zur Ausnutzung 
der fantastischen Möglichkeiten, die 
der 64 mit hochauflösender Graphik 
und Farbe bietet. Mit SUPERGRA- 
PHIK 64 können Sie Punkte, Linien 
und Kreise ziehen. SPRITES definie- 
ren und manipulieren, Farben setzen, 
komplette Graphikbildschirme auf 
Diskette abspeichern bzw. laden und 
vieles andere mehr. Ergänzt wurde 
die SUPERGRAPHIK 64 zusätzlich um 
SUPERSOUND, eine neue Befehls- 
erweiterung zur Nutzung der hervor- 
ragenden Soundmöglichkeiten des 
64 und der Farb-Hardcopy auf dem 
neuen SEIKO GP 700. Mit SUPER- 
GRAPHIK 64 machen Sie mehr aus 
Ihrem 64er, und das für nur DM 99,-. 


PASCAL 64 


Jetzt können Sie die beliebte 
Sprache PASCAL auch auf dem 
COMMODORE 64 einsetzen. 
PASCAL 64 ist ein leistungsfähiger 
PASCAL-Compiler, der nicht nur den 
Befehlssatz des Standard PASCAL 
unterstützt, sondern auch die 
hochauflösende Graphik und die 
Sprites des COMMODORE 64, Ein-/ 
Ausgabe über Diskette und Drucker 
sowie REAL und INTEGER Arithmetik. 
Unterprogramme aus Ihrer eigenen 
Prograrmmbibliothek können vor dem 
Compilieren in Ihr Hauptprogramm 
mit eingebunden werden. PASCAL 64 
istsehr schnell, da echter Maschinen- 
code erzeugt wird und kostet 
komplett mit ausführlichem Hand- 
buch nur DM 99,-. 


Unser 84 (!) seitiger Spezialkatalog mit detaillierten Informationen über COMMODORE 64, VC-20 und den neuen 
COMMODORE EXECUTIVE, mit der großen Druckerauswahl vom kleinen Listingdrucker über Vierfarbplotter und 
Typenraddrucker bis zum Schnelldrucker mit Einzelpunktgraphik und Schönschrift, mit preiswerten Floppies, 
Monitoren und weiteren vielseitigen Peripheriegeräten, mit IEC-Bus und 80-Zeichen-Karte, mit universellen 
Interfaces und Erweiterungsmodulen, mit preiswerten neuen Programmen aus aller Welt vom Spielehit bis zur 
Fakturierung mit integrierter Lagerbuchführung, mit Programmierhilfen, BASIC-Erweiterungen und Compilern 
und mit aktueller Fachliteratur aus aller Welt. 
Das neue VC-INFO 3/83 sollte jeder Computer-Interessent haben. Fordern Sie esnoch heute 
gegen DM 3,- in Briefmarken an. 


IHR GROSSER PARTNER FÜR KLEINE COMPUTER 


DATA BECKER 


Merowingerstr. 30 : 4000 Düsseldorf - Tel. (0211) 310010 - im Hause AUTO BECKER 


DATA BECKER BÜCHER und PROGRAMME erhalten Sie im Computer-Fachhandel, in den Computerabteilungen der Kauf- 
ınd Warenhäuser und im Buchhandel. Auslieferung für Österreich Fachbuch-Center ERB, Schweiz THALI AG und 


SYNTHIMAT 


Mit diesem Superprogramm verwan- 
deln Sie Ihren 64er in einen profes- 
sionellen, polyphonen, dreistimmigen 
Synthesizer, mit dem Sie über die 
Tastatur ganze Akkorde spielen kön- 
nen. Zu den unglaublich vielen Mög- 
lichkeiten dieses Programms gehört 
auch die Bandaufnahme/-wieder- 
gabe direkt auf bzw. von Diskette. 
SYNTHIMAT stellt gleichzeitig den 
Synthesizer optisch dar. Sämtliche 
Module sind farblich gekennzeichnet 
und übersichtlich angeordnet. Es ist 
ein Leichtes, mit SYNTHIMAT sämt- 
liche Klangeigenschaften verschie- 
dener Musikinstrumente zu imitieren, 
aberauch völlig neue Klangkreationen 
zu schaffen, selbst Weltraumklänge. 
Verwandeln Sie Ihren 64er für wenig 
Geld in eine Super-Musikmaschine 
mit SYNTHIMAT. Komplett mit aus- 
führlichem Handbuch nur DM 99,-. 


Weitere DATA BECKER PROGRAMME: Das rechnende Textverarbeitungsprogramm TEXTOMAT, die Sofortfakturierung 
FAKTUMAT, die Einnahme-/Überschußrechnung KONTOMAT, das Synthesizerprogramm SYNTHIMAT, die Graphikerweiterung 
SUPERGRAPHIK und der Diskettenmonitor DISKOMAT. Jeweils nur DM 99,- inkl. ausführlichem Handbuch. 


Abo 


Laß den 
Briefträger 
laufen, 

statt selbst 
CPU zu kaufen! 


Abonnement 


Ein Abonnement ist der einfach- 
ste, schnellste und bequemste 
Weg, jeden Monat Ihre CPU zu 
bekommen (und das nicht nur 
zur Winterzeit)! 

Außerdem sparen Sie durch ein 
Abonnenment Geld. Der Bezugs- 
preis für ein Jahr (12 Ausgaben) 
beträgt nur 55,- DM incl. Porto. 
Bei Zusendung im europäischen 
Ausland beträgt der Preis für ein 
Jahr 80,- DM, nach Übersee 
110,- DM. 


Abo-Kombination 
Homecomputer & CPU 
Inland 100,- DM 


Europäisches Ausland 150,-DM 
Nach Übersee 200,- DM 
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DRAGON 32 


Alien-City 


für den Dragon 32 


Ein Action-Game, vollständig in Maschinencode geschrieben. 


Aufgabe ist es.mit einem Ultraschalljä- 
ger die Stadt "Alien-City”, durch 
zielte Bombenabwürfe zu zerstören, 
um die Prinzessin Dragona, die dort ge- 
fangengehalten wird, zu befreien. 
Viele Ihrer Kameraden sind an diesem 
Unternehmen bereits gescheitert. Nun 
ist die Reihe an Ihnen! 

Beweisen Sie Ihr Reaktionsvermögen 
und Ihre Geschicklichkeit. denn dieses 
Spiel ist sehr schnell und ebenso 
schnell ist Ihr Energievorrat ver- 


braucht. 

Das Spiel wird mit den Tasten 
(Pfeil nach oben)= Flugzeug steigt 
(Pfeil nach unten)= Flugzeug sinkt 
Enter= wirft Bomben 

Clear= feuert den Laser ab, gesteuert. 
Pro Spieldurchgang hat man 6 Ver- 
suche, die Stadt zu zerstören. 

Nach dem 5. Spiel ertönt ein leiser Piep- 
ston. der besagt. daß man sich 
im letzten Durchgang befindet. 

Hier noch ein Tip: 


HERRGEH ZTULER 198% 


= 


1 C=i 

2 GOSUB358 
DATAS6, 32, B7, 35, 52,B7, 35,56 
DATASS, OF, B7,35,57,86,3F,B7 
DATAFF, 23, 19, 5E,88,98,18,EF 
DATA35, 53, 19, 8E,97,98,19,BF 
DATA35, 53, SE, 11,FF,86, AR,R7 
DATAS2, 8C,05,FF,26,F9,18,BE 
DATAB1,12,1F,28,86,8C,1F,83 
DATASS, 28,87,84,18,3E,11,DF 
DATRAIF,12,B8,84,18,E6,C06,86 


Wenn das erste Spiel beendet ist, kann 
man alle Data-Zeilen löschen. Dann 
geben Sie POKE 27. & H40 ein. Damit 
kann man das Maschinenprogramm 
und das Basicprogramm mit einem 
CSAVE "Alien" auf Band abspeichern 
und mit CLOAD “Alien” laden. 

Das ist einfacher als das CSAVEM 

Kommando. 


DATAS9, C4, 3F ,5C0,f7,28,21,98 
DATREB, SA, 26, F8,86,55,A7,28 
DATA38, 81.7R,94,18,26,E1,5E 
DATAB? , 04, R5,89, 81, AR, 19,26 
DATAB2, 23,A5,88,29,51,AA,18 
DATR2E, 82, 1F,N6,88,.48,E1,06 
DATARC, 19, 26,92,15,80,11,9F 
DATA18, 2E.82,E2,34,74,80F,57 
DATASS,FF,3SE.81,51,A7,88,8C 
DATAB1,5R. 26,F9, BD, EB,ES5,35 
DATAT4,81,5E, 18,27,08,71:51 
DATABR, 10, 27,08,96,FD,94,15 


5 DATRZ7, 


bATASS. 1 2 
DATABG, 18, 26.89. B4, 865,59, H7 
DATABB, 5: A.A7,1F,56, AA, A? 
DATA1E.36.55,7,33,26,56,53 
DATART. 88, 1F, 36, AA, 7,53, 1E 
DATRSS,55,#7,39, 48, 26,55, A7 
DATASS. 3F. 365. AA,R7,593,3E,30 


DRAGON 32 


318 READ A$:POKE A.YALC"&H"+AS I ASA+l 
326 IF A<&H378C THEN313 


PMIDE 1,1 
SCREEN 1 
EHE 
32 SCREEN 
334 FRINTE443, AHFLUG 
A$=INKEYS$: IF As=""THE) 


349 END 

258 CLS:FRINT" ALTEN GET nee "ANLEITUNG FÜUER ALIEN-CITY 

352 PRIHNT"...EINE STADT DES GRAUENS ! ":PRINT"IHRE AUFGABE IST ES,MIT IHREM 
ULTRASCHALLJREGER DIE STADT ALIEN-CITY MIT GEZIELTEN " 

354 PRINT"BOMBENREWJERFEN ZU ZERSTOEREN, DAMIT SIE DIE FRINZESSIN DRAGOHNABEFREI 

EN KOENNEN I 1" 

356 FRINT"GESTEUERT WIRD MIT: DEH UF & DOWN LURSOR-TASTEN GEFEUE 

RT WIRD MIT : TASTE >ENTERS UND TASTE >CLEARS" 

255 FÜR FH=1T018:FOR HF=31T01 STEP-1:HF$=STRECHF I: FLAY"OLT159Y"+HRSH CHCHEHECH" 

HEAT: NEXT FH:CLS:RETURN 
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Panzerschlacht 


für den VC-20 


Bei dem Spiel ”Panzerschlacht” gilt es wiedereinmal, als Panzer- 
schütze die feindlichen Truppen zu bekämpfen. Aber bevor Sie Ihre 
Siegesfahne in den Wind hissen können, ist noch einiges zu tun. 


Zuerst muß die gegnerische Abwehr- 
linie durchbrochen werden, um deren 
Energiedepots zu zerstören. Das ist 
nicht einfach, denn Ihr Kampfpanzer 
ist durch wochenlange Einsätze bereits 
beschädigt worden. 

So können kleine Hindernisse, die 
ständig auf dem Weg Ihres Vormar- 
sches auftauchen, nicht mehr überrollt 


werden. Häuser und Bäume können 
zwar durch gezielte Schüsse zerstört 
werden, aber nur der geringste Kontakt 
mit diesen, führt zu einer Explosion 
Ihres Panzers, die gleichbedeutend mit 
dem ”Aus” des Spieles ist. 

Das Programm hat High-Score- 
Wertung und ist für zwei Spieler ge- 
schrieben. Außerdem ist der Schwie- 


& REM FUER DIE GRUNDVWERSION! 


1 PORE36873, 28 


7? PRINT Mlmkia1 383 dee} 


BT": PRINT ARNSERBRILLAUS 


rigkeitsgrad des Spieles frei wählbar. 
Der Spieler mit dem schwarzen Panzer 
benutzt für die Steuerung die Tasten A, 
Z,B, N und mit der Taste M wird der 
Panzer abschußbereit gemacht. 

Der Spieler mit dem roten Panzer be- 
nutzt den Joystick zur Steuerung. 

Die Difficulty-Eingabe ist für den Sprit 
desıschwarzen Panzers da. 


HUBER" 


8 INPUT’ MAMBRRSDIFFICULTTIBREERBBERBRL 1-33" RA: IFRHSLORRAPSTHENRNSE 
9 DA=7532: FOKE3S6E78, 15: MN=36877 : PRINT" ZI" 
u DATA24, 69. 1265,255,147,147,243, 243 
DATA. 24.52, 90, 126,69, 24,24 
DFTAIB. 145, 214, 254,254, 214,139, 8 
DATAIZE, 60, 24,63, 24,68, 128,4 
DATAB. 126.69, 24,252, 24,68, 126 
DATAB. 65, 187, 127,127,197, 73,8 


DATAB.0,9,8,0,8.8,8 


DATAB, 8, 36,24, 24,36.,9,8 


DATRISZ, 145.29, 36.65,.65, 184,31 
DATRi69, 153, 219,179, 129,219, 70,16 
DATA24, 60,66, 182, 36,69, 126,129 
FORT=1T011 : FORA=8TOT : REAIDB : POKEDR+R, B: NEXT : DA=DX+8 NEXT  POKE36S69, 255 

128 PU=198:Pi=193:Ffi=5:P2=5:F1=708:FU=100+RZ*100 

138 FRIHT"I" :FORU=1T099:C=INT{RND<19%*448) :POKE7746+C, 53: FOKEIB4ES+L, 2: NEKT 

148 FORI=1T0199:C=INT<RNDI1)#449) : POKE7746+C, 54: FOKE3B456+C, 5: NEAT 

158 FORG=1T104:F=INTSRNDI12#449) :POKE7746+F , 63: FOKE28466+F ,6: NEXT 

319 FOKEQ,53:FOKES:59:0=7922:5=7943:N1=39728: FOKER, 56 :FOKES, 57 : FOKER+N1., 8: FOKES+ 


N1.4 


Sil #1=9:42=9: 43=9:W1=0:Wi2=9 -W3=8 


ZB=PEEK(1975 
IFZB=33THENR=22 »0=58 : G05UB39@ : GÜSUB788: K1=0+22 


= X2=22:K3=0+132 
IFZB=17THENR=-22 : 0=55: GOSUBSQG : GUSUB798: K1=0-22:K2= 


'n2=-22:%3=0-132 

=1:A3=04+6 
IFZB=35THEHR=-1 : 0=57 : GOSUBSQ0 : GOSUB7OR :Ki=-1:82=—-1:K3=0-6 
IFZB=36THENGOSUBFBO 

FOKEMH, 

FOKES7 154, 127: VES(FEERCSFISZIANDIZBI+GPEEKCITISIDANDZEI  BN=SPEEKC3TISLIANDEZ 


FOKE37154,255 
IFVE=ZETHENP=1 : J=56 :GUSUBEAE : GOSUBSBA :WI=3+1 IWR=1 NI=S+E 
IFBN=OTHENGOSUB1203 
IFVB=149THENP=-1 : J=57 : GUSUBSQU : GOSUBSGR : M1=S-1 :WZ=-1:WI=3-6 
IFVE=148THENP=22 : J=58 : GOSUBSAN : GOSUBSAA: WI=F+22:NE=22:U3=5+132 
IFVB=152THENF=-22: J=55:G0SUBEUU: GOSUBSAB: WI=S-22 W2=-22: WI=3-132 
IFYWB=21 THENGOSUBSQBQ 
FÜKEMN. 3 
FRINT"SBESCORE i.P : "PU; © PRINTUSTABELTI" TR: "PR 
IFPU=<OTHENFU=2: GOT04588 
IFPi=<OTHENP i=2:G0T04598 
IFPASQURFZ=BTHENA4588 
PRINT'RMBSSCORE 2.F SP "RU ISPCCITI" FAN: "P2 
PRINT RRBESFUEL" 5 PRINT EBRBUFUSUH "SS PRINTSERBRSUFLN "; 
FUSFU-1:Fi=F1-1 
IFFÜ=QTHENPOKEQ, 62: FOKEG+N1. 8: GUSUB4U0R :PA=PA-1: 50104508 
IFFI=OTHENFOKES, 62: FOKES+NI, 8: GOSUB4QUB : PZ=F2-1 :GOTO4520 
G0TI328 
A=PEEK OHR) : IFA=SSURA=SAORASSIORA=SSORA-SEORA=STURA=SSTHENGOSUBI1EUR: GOTOSLB 
RETURN 
POKEQ, 59: POKER, 61: POKEG+N1, 2: RETURN 
H=PEEK(S+P) : IFH=S3ORH=S4ORH=ESORH=SSÜRH=SSURH=57ORH=SBTHENGOSUB1 199: G0T0218 
RETURN 
FOKEZ, 62: FÜKEZ+N1 0: G05UB488@:: RETURN 
FOKES. 61 :POKES+N1,8:'RETURN 
G=O+R : PLKEU-R. 59: POKEQ,D:POKER+N.Q 
POKEMN, 188: RETURN 
$=$+P :POKES-F, 59: FOKES, J: POKES+N1,4 
FOKEMN, 280: RETURN 
FORU=X 1 TOX3STEFX2 : FOKENN, 230 : POKEU, 68: POKEU+N1,8 
K=PEEK<U+N2) : IFK=S3ORK=54THENFU=FU-4 
IFK=63THENFÜ=FU+108 
IFK=5SORK=560RK=S70RK=58G0102920 
POKEU, 59: NEXT :POKEMN, @:FOKEU, 61 : FOKEU+Ni 2: RETURN 
2=0:GOSUBESA : GOSUB1588 : GOSUBSER : RETURN 
2=3 : GOSUBESO : GOSUB1S1B: GOSUBEEB : RETURN 
FORI=WITOWSSTEPW2 :FÜKEI , 60: POKEI+N1, 9: FOKEMN, 158 
L=PEEK(1+W2) : IFL=SSORL=S4THENPI=P1-4 
IFL=63THENFI=F1+188 
IFL=SSORL=SSORL=570RL=5860T01388 
POKEI 59: NEXT :FOKEMN, @:POKEI.61:POKEI+N1,2: POKEMN,@: RETURN 
FOKEI , 59: POKEU, 62: POKEO+N1, 2: GUSUB4888:GOSUB1508 
IFPA=OG0T04502 
GOTO138 
PA=PR-1:P1=Pi+28: RETURN 
P2=PZ-1 :PUSFÜ+2E RETURN 
FOKEU, 53: POKES, 62 PÜKES+N1,2: G0SUB4908 : GOSUB1518 
IFF2=050104598 
GOTO139 
POKEMN, 288: FORT=1T0588: NEXT : POKEMN, 9: RETURN 
IFFU=8G0T04598 
RETURN 
PRINT" 
PRINT" SIWISCORE 1.F :"FÜ:FRINTMMSCORE 2.P :"Pl 
PRINT" MONSITANKS LEFT 1.P :"FA:PRINT"MBWITANKS LEFT 2.F :"PZ 
IFPU>HIANDPU>F LTHENHI=FU 
IFPI>HLANDFI>FUTHENHI=SPI 
FRINT"AMRBISFUEL 1.P ©" FÜFRINTESRUEL 2.P :" Fi 
FRINTNOSBRBHIT Ahr KEY" 
FORTT=1T01988: NEXT :FOKE136,8:WAIT138: 1:POKEL98, D: RUN 


onputer, 
Porz 


nterhaltung 


4 
2 
3 
3 
2 
2: 


für den VC-20 


Finde mit Aladin in einem finsteren Irrgarten die Wunderlampe! 
Ein Schatzsuche-Spiel in Basic, für die Grundversion des VC-20. 


Hüte Dich dabei vor den vier Geistern. zuletzt dennoch zur Lampe gelangt möglich. den Ausgang 


die nur manchmal kurz zu sehen Manchmal findest Du 
sind 


des Irrgar- 
eine Kerze tens zu finden 

Dann leuchtet der Irrgarten kurz auf Das Spiel wurde für den Joystick gu- 
Den. Standort der Geister und der | und Du kanı alle Steine. Geister | schrieben. Zuerst muß das Zeichen- 
lampe muß man sich gut einprägen. | und die Lampe sehen | programm geladen und gestartet wer- 
damit man. zwar auf Umweren. abeı Nur mit der Lampe in der Hand istoes den. dann das Spielprogramm 


Zeichengenerator 


FOKES2, 26: FÜKESS. 28: FÜKE36379, 8:G0OSUB28 
A=7168: FORB=&TÜS11: FÜKER+B, PEEK32768+B) :NEXT 
FORB=8TO127 :RERDC:: FOKER+B,C: NEXT END 

LATASB, 126,90, 255, 255, 102.68,24 

DATA&B, 126, 99,219, 255, 182, 38.126 

DATA&O, 126, 30.255: 219, 66,69,24 
DATA&S,67,253,133, 133, 133, 134, 252 
DATA28.62:42,62,62,62,42,42 

DATA, 8,17,259, 188, 248,56, 8 

18 DATRB,8,32,113, 255, 255, 247,169 

11 DATAZ4,68, 126,255, 255, 255, 235, 231 

i2 DATAB,8,4, 14,255, 255,239, 197 

13 DATR247 , 255, 191. 247,247, 163, 227,227 

i4 DATA135,129,2,9,9,0,8,8 

15 DATRZ33, 255, 253, 239,239, 197,199,193 

16 DATA247 , 255, 191,247, 247,171, 253,235 

17 DATA195, 165, 255, 36, 36, 259, 36,36 

18 DATAZ233, 255, 253, 239, 239, 213. 255, 215 

19 DATAB,0,6,0,8,8,8,28 

28 FRINT' TIRDEWALADIN" FRINT"AMAFINDE MIT ALRDIN DIE BMUNDERLAMPE. " 


VENHuUrRrQRrR- 


21 PRINT"AHUETE DICH VOR DEN BGSEISTERN!" RETURN 
Spielprogramm 
REN#ALADIN H.J. FINGER-DUKAMP 


REM#HOLZMINDENER STR.2 3350 KREIENSEN 

REM#TEL. 05563 6318 

POKES2. 28: PÜKES6, 28 :0=36674 :PÜKEU+3, 3: 1=7748: I=8 :POKEU+4, 15: 0=2 
W=36869 :POKEY, 8: 1=30728: 7=37151 :G0SUB67 : GOSUB34 

POKEG1+D, 8: FÜKEGZ+D, 8: PUKEGS+D. 8: POKEG4+D, 8: PÜKEF+D, 8: POKEO+Z2, 8 
N=N+1 : IFN=5STHENPÜKEG1+D. 3: POKEU+Z, 189: POKEU+5, 8 
IFN=18THENPOKEG2+D, 3: POKEO+Z2, 202 
IFN=15THENFOKEG3+HD, 3: POKEU+Z, 205 

18 IFN=28THENPÜKEG4+D,3:FÜOKEO+Z2, 211 

11 IFN=25THENPOKEF+D, 7: POKEU+2, 222:N=8 

12 POKEY+3, 127: Y3=-CCPEEKCT+LDANDI28)=B>: FOKEY+3, 255 

13 Ti=-(KFEEKCTIANDIEISBI : 74=-C CPEEKCTIANDSI=B) : V2=-CCPEEKCTIAND4) =) 
14 K=8 

15 IFYI=1THENK=-1 

16 IFr2=1THENK=-22 

17 IFr3=1THENK=1 

18 IFY4=1THENK=2Z 

13 IFYIANDYZ=1THENK=-23 

28 IFFZANDY3=1THENK=-21 

21 IFY3ANDY4=1THENK=23 

22 IFT4ANDTI=1THENK=21 

23 FÜKEO+3,8:L=L+K: T=T-i :GOSUBS3 

24 IFPEEK(M+LI=STHENFOKEU+S, 178: POKEM+L+D, 5: L=L-K :POKEM+L, 1: POKEM+L+D, 4: T=T-2:G0 


vouyuaunun. 


25 IFM+L=7743ANDI=2THENGOSUBE4:GOTOS 

26 IFL<S-ITHENL=L-K:GOTO& 

27 IFT<OTHENGOSUBS7 : GOSUB34 :GOTÜIE 

28 IFPEEK(M+LI=1STHENFOKEO+S. 253:N=8 

23 IFFEEK(M+LI=STHENGOSUBSSE 

38 IFPEEKCM+L>=4THENFOKEN+L-K 32: POKEI+L, 32: 50SUBS7 :GOSUB34 :GÜTOE 
51 E=INT(RND<13#338>+7791: IFFEEK<EI=STHENS1 

32 POKEE+D,5:POKEM+L, I: PÜKEM+L+D, 7: IFK=BTHENG 

33 PÜKEM+L-K,32:60T06 

34 FÜRA=33T01595TEPZ : FÜKEN-4, A: NEXT 

35 PRINT" :FOKEW, 255: R=R+1: T=291+J%2: FORA=7767T081855TEP22  POKER, 3: POKEA+D,S:NE 


36 J=R : FORA=8184T981645TEP-1 : PÜKER, 3: POKER+D, 5: NEXT: FORA=8142107746STEF-22: POKER 
3 


’ 
37 POKEA+D,S:NEKT:FRINT'RRS FÜH FGH" :PRINT"ECELMNICCCCCCCCCCCCCCHLJ 
KEC" 


38 IFR>188THENJ=188 

39 FORR=1TO48+J72 

48 E=INTSRNDS1)#3833+7773: IFPEEKLEI<PSZTHENAO 

41 FOKEE.,3:FOKEE+D,&:NEXT 

42 F=INTCRNDSL1IKES?+SB36 : IFFPEEKSFICH3BZTHENAZ 

43 FOKEF,S5:POKEF+D,7:POKEF-22,32 

44 Gi=INT(CRND(13#857+7813: IFFEEKCGIP<CP3ZTHENA4 

453 G2=1INT{RNDS 13687 +7901: IFPEEKLGEI<H3ZTHENAS 

46 G3=INTCRND“15#885+7389: IFPEEKGS3>CH32THENAE 

47 G4=1INTSRND<13#887 +8977 : IFFEER LGA) CI3ZTHENGT 

48 FOKEG1,4:FOKEGI+D, 7:FOKEGZ, 4: FÜKEGZ+D, 7: POKEGS. 4: POKEG3+D, 7: POKE77S56,3:POKES38 - 
476,8 

43 FÜKEG4. 4: PÜKEG4+D, 7: FÜRE=1T04+J/8 

50 A=INTCRNDS15#4123+7758: IFPEEK<A><CZSZTHENSO 

5i POKEA,15:FÜKER+D. 8: NEXTB: FOKEM, 8: POKEM+D,7:L=8:N=8: I=8 

52 FÜRR=150T0385TEF-2: FÜKEW-4, A: NEXT RETURN 

53 PRINT"SM'S,R;T"WM "RETURN 

54 I=2:FOKENM+L-K, 32: FÜKEM+L, I: POKEM+L+D, 7: POKEO+S, 25: FOKEO, 222: POKEO+1, 188: POKEO 
+2,167 

55 FORB=15ST08STEF-.85: PÜKEO+4, B: NEXT : FOKEO, 8: POKEU+1, 8: POKEU+Z, 8: POKEU+4, 15 
56 PÜKEO,8:FOKEO+1,8:PÜKEI+Z. 8: N=9:5=5+56: RETURN 

57 FÜRA=244T0127STEF-1:POKEO+1, A: FÜKEO+Z,371-A: NEXT: POKEU+L.,8:FOKEO+Z,8:L=B 
58 POKEN, 246: FOKED+S, 6: PRINT" TIINSSPIELENDEI DU HASTE": PRINTS; "PUNKTE!" 

53 IFS>HTHENH=S : INFUT"ANANME" ;A# 

€8 FRINT"MBESTE FUNKTZAHL : m" :FRINTAF.H 

&1 FRINT"MDAS SPIEL IST ZU ENDE!MDRUECKE KNUFF FUER EINNEUES SPIEL!" 

62 IFPEEKCTICHFPATHENGZ 

63 R=8:$=9:G05UB87 : RETURN 

54 3=5+T+508: PÜKEU+S, 8: G50SUB53: FÜKEM+L, I: FÜKEM+L+D. 7: POKEM+L-K, 32: I=8 

65 FÜKEÜ+L, 222: FIKEU+Z, 211: FORA=1STOOSTEF-1: FÜRB=1T058 NEXT: FÜKEU+F, A 

66 FORE=1T059: NEXT: FÜKEO+4, 8: NEXT :FOKEO+1, 8: FÜKEO+Z. 8: FÜKEU+4 15: GUSUB34 : RETURN 
67 PRINT"I'SPCC223> "MALRDIN" :FORA=iT02588 : NEXT: RETURN 


nr 


lan, nut 


APPLE Il 


Wenn die Stimmung auf Ihrer näch- 
sten Party zu fortgeschrittener Stunde 
auf dem Nullpunkt gesunken ist - in- 
folge unkontrollierten Genu 
selbstgemachten Himbeerweines, der 
aber auch die Zunge löst und so 
mancher mit seinen Problemchen an 
das Licht der Nacht rückt, um hier und 
da vielleicht doch einen guten Rat- 
schlag von den ebenfalls umnächtigten 
Anwesenden zu erhalten, so ist jetzt die 
große Stunde des Dr. Apple gekommen, 
der als Psychiater und Astrologe in 
Aktion tritt und zum Sachverständigen 
in allen Lebensfragen wird. 


Wir wünschen viel Spaß! 


Hier noch einige Erläuterungen zum 


omputer, 
Pi 


zur nterhaltung 


Dr. Apple 


für den Apple II 


Einen Doktortitel für Ihren Computer - das war es, was dem Apple 
II bisher noch fehlte. Und schon steigt er eine Stufe höher, in der 


Gunst aller Anti-Computler. 


Programm: 

Die Variable A$ enthält den Namen 
des "Patienten". In der Erkennungs 
routine, ab Zeile 5000, wird dieser 
Name abgefragt und ein persönlicher 
Kommentar abgegeben. 

Man kann diesen Teil des Programmes 
also abändern und weitere Abfragen 
der Form: 

IFA$="Name” THEN PRINT "Kom- 
mentar" hinzufügen und so das Pro- 
gramm an den jeweiligen Benutzer an- 
passen. Zeile 5600 sorgt für einen Kom- 
mentar, wenn der entsprechende Name 
nicht abgefragt wird. 

Das Programm ist in Applesoft-Basic 
geschrieben. Es kann aberleicht füran- 
dere Computer umgeändert werden, da 
es nur wenige Spezialbefehle nutzt: 


POKE 35,23 In Zeile 100 kann entfal- 
len. HOME Bildschirm löschen und 
Cursor links oben positionieren 

GET Zeichen von der Tastatur lesen, 
gef. durch INPUT ersetzen 

SPC(N) Nur bei PRINT-Anweisungen 
erzeugt N Leerstellen 

VTAB Vertikale Cursorposition an- 
geben 

HTAB Horizontale Cursorposition an- 
geben 

INVERSE Textausgabe schwarz auf 
weiß 

auf 


Normal Textausgabe weiß 
schwarz 
Außerdem muß bei den PRINT-- 


Anweisungen das Bildschirmformat 
des eigenen Computers berück- 
sichtigt werden. 


Februar 1984 


250 


REM DR. AFFLE 
REM 
REM FRANZ EUGEN MATTES 
REM BIRKENWEG 7 
REM 7965 OSTRACH 1 
REM 
REM 16.11.1983 - 21.11.1983 
REM 
REM. 
VTAB 24: INVERSE : FRINT " 
FRANZ MATTES (C) 11/19 
85 "zz NORMAL = FOKE 3 
5,25 
CLEAR : HOME : GOTO 1090 
FRINT :HH = INT CRND (1) * 
5*+ 1). IF HH = 1 THEN YY$ = 
win 
IF HH = 2 THEN YY$ = "#" 
IF HH = 3 THEN YY$ = "+" 
IF HH = 4 THEN YY& = "%" 
IF HH.= 5 THEN YY$ = "#" 
FOR I = 1 TO 40: FRINT YYs;: 
FOR U = 1 TO 20: NEXT U: NEXT 
I: RETURN 
HOME : FRINT. "HALLO!" 
FRINT : FRINT "WENN DU FROBL 
EMEJIMEN!" 


FRINT "GELD, GESUNDHEIT, SEX 
‚ ODER DEINEM BERUF" 


FRINT "HAST, DANN KANN ICH D 
IR HELFEN." 
FRINT "ICH STELLE DIR FRAGEN 


UND DU ANTWORTEST MIT 'J’ F 
VER 'JA’ UND 'N’ FUER 'NEIN’ 
FRINT "BEACHTE: 

JEDER EINGABE 


DRUECKE NACH 
X RETURN?" 


FRINT = FRINT : INFUT "BEREI 
T ? DRUECKE <RETURN> ";JA$: 
HOME : 

FRINT "HALLO DU 
N VORNAMEN HAST 
: FRINT : INFUT "VERGESSE NI 
CHT <RETURN> ZU DRUECKEN NAC 
HDEM DU DEN VORNAMEN EINGEGE 


DA... WELCHE 
DU?" PRINT 


BEN HASST ==> "sAt: GOSUB 

5200 . 

FOR I = 1 TO 3500: NEXT 

HOME = FRINT "ICH KANN DIR B 

EI DER LOESUNG DEINER FR 

OBLEME HELFEN, "A#;"." 

FRINT : FRINT "MEIN DIFLOM I 

ST AUF VIER BEREICHE BE- s 

CHRAENKT= ": FRINT 

FRINT "(1) SEX"= PRINT "(2) 

GESUNDHEIT": FRINT "(3) GELD 

"2 PRINT "(4) BERUF" 

FRINT =: FRINT =: FRINT "DRUEC 

EE DIE ZAHL DIE DU WUENSCHST 
»"s2 GET JAFt:JA = VAL (J 

Ar) 

FRINT 

IF JA «< 1 OR JA > 4 THEN PRINT 


"WARUM DRUECKST DU NICHT 1, 


330 
340 
350 
360 


370 
380 
390 


400 


410 


420 


430 


440 


450 


460 


470 


480 


490 


2, 3, ODER 4": FRINT A$;" PR 
OBIERE ES NOCH EINMAL.": GOTO 
300 

DN JA GOSUB 540,690,820,920 
FOR I = 1 TO 500: NEXT I 
PRINT : PRINT 

PRINT = FRINT "WILLST DU NOC 


H MEHR RATSCHLAEGE ";A#: FRINT 


"DRUECKE ‘9’ ODER 'N’ ==> ."5 

: GET C#: FRINT 

IF C#$ = "N" THEN 400 

IF C$ = "J" THEN 270 

PRINT "BITTE DRUECEE NUR 4° 

ODER ‘N’ "zA$: GOTD 360 

HOME : FRINT "SAG MIR, "A$: FRINT 


"WIE WUERDEST DU MEINE RATSC 
HLAEGE AUF": PRINT "EINER SK 
ALA VON 1-10 EINORDNEN": INFUT 
"==}";C: HOME 
IF C «& 4 THEN HOME =: FRINT 
"WIE ICH DACHTE, "A#" DU KAN 
NST": FRINT "DIE WAHRHEIT NI 
CHT VERTRAGEN. DU BIST VON 
DIESEN WAHRSAGERN, DIE IMME 
R DAS SAGEN, WAS DU HOEHR 
EN WILLST TOTAL VER- DORBEN 
WORDEN. ": GOTO 440 
IF C > 6 THEN FRINT "OH JA, 
"sAs;" DU ERKENNST EIN": FRINT 
"WAHRES TALENT.ABER EINIGE D 
IESER DUMM- KOEFFE HIER SCH 
EINEN MICH NICHT ERNST zu 
NEHMEN. HOERT ENDLICH AUF ZU 
LACHEN. ": GOTO 440 
PRINT "ICH WERDE EINFACH NIC 
HT RESFEKTIERT, DASLEBEN EIN 
ES COMPUTERS IST NICHT SO 
LEICHT, WIE DU DIR ES VOR 
STELLST.": FRINT "DU UND VIE 
LE ANDERE GEFUEHLSLOSE MEN- 
SCHEN ERKENNEN MICH NICHT 
ALS ERST- ELASSIG." 
GOSUB 120: FRINT "NACH MEINE 
R UHR SCHULDEST DU MIR DM 10 
© FUER DIE THERAFIE." 
FRINT : FRINT "LEGE DAS GELD 
BITTE NEBEN MEINE TASTATUR" 
: GOSUB 120 
FRINT : FRINT "HAST DU DAS 6 
ELD HINGELEGT?": FRINT "DRUE 
CKE °J‘ ODER 'N’ ==> ";: GET 
C#: FRINT 
IF C$ = "J" THEN HOME = FRINT 
"LUEGNER... BETRUEGER.... SC 
HWINDLER....": FRINT : FRINT 
: FOR I = 1 TO 1300: NEXT I: 
FRINT "SCHAEME DICH.": FRINT 
FRINT "EINEN ARMEN COMFUTE 
BETRUEGEN WOLLEN. ": GOTO 5 


Tja sa: m 


30 

IF C$ < "N" THEN FRINT " 
VERSUCH ’S NOCH EINMAL ";A#: 
370 

HOME = FRINT "DU BIST EHRLIC 
H. ABER ICH HAETTE LIEBER BA 


GOTO 


580 


590 


610 


620 


630 


640 


RGELD. " 
FRINT "ICH GEBE RUHE. WENN D 


a 1.-— DM GIEST";: FRINT 
FOR I = 1 TO 4500: NEXT Iz HOME 
FOR. I = 1 TO 25: PRINT "GEIZ 
HALS GEIZHALS GEIZHALS GE 
IZHALS": NEXT I 

FOR I = 1 TO 3000: NEXT I: HOME 
: FRINT "JETZT KANN EIN ANDE 
RER MIT MIR REDEN.": FOR I = 

1 TO 2800: NEXT I: GOTO 110 
GOSUB 1030 

HOME :A = INT CRND (1) * 1 

a 

IFA = 11 THEN GOSUB 2080: GOTO 
270 

IF A= 10 THEN PRINT "DU SO 
LLTEST EIN GLAS AUF DEINEN E 
HE- GATTEN UND DEINEN LIE 
BLING-DRINKEN....": GOSUR 12 

0: FRINT "UND BETEN, DASS SI 

E- SICH NIEMALS BEGEG- NEN." 

IF A’= 9% THEN PRINT "MIT DE 


INEM KOERFER SOLLTEST DU EIN 


FOTO-MOPELL SEIN": GOSUB 12 

0: FRINT "FUER DIE BERUEHMTE 
ZEITSCHRIFT......."s FOR I = 
1 TO 1000: NEXT Is FRINT " 


"DER MODERNE LANDWIRT " 


N 
IFA = 8 THEN FRINT "MIT DE 
INEM TALENT SOLLTEST DU MEHR 
ZEIT IM BETT VERBRINGEN. ": 
120: FRINT : FRINT "AM BESTE 
N DU GEHST GLEICH NACH HAUSE 
UNDLEGST DICH SCHLAFEN !!" 


GOSUB 


IFA = 7 THEN PRINT "DU BIS 
T NICHT, MEHR SO GUT, WIE DU 
EINMALWARST."= FRINT : GOSUB 
120 ‘ 

IFA = 6 THEN FRINT "NIMM E 
INE KALTE DUSCHE "A&: FRINT 


"DANN WIRD DER DRANG WEGGEHE 
N !"s GOSUB 120: PRINT =: FRINT 
» FRINT "WENIGSTENS SO LANGE 
„ BIS DU DICH AB- TROCKNE 
ST": 

IFA = 5 THEN FRINT "WOW "A 
=" DU BIST SUFER SEXY": FRINT 
"DU GEFAELSST MIR WIRKLICH. . 

. DU SOLLTESTERFREUT SEIN... 
"s GOSUB 120: FRINT 
"DASS JEMAND DICH SCHÜEN FIN 
DET." 

IFA = 4 THEN PRINT A$;", M 
ORGEN WIRST DU EIN GROSSES," 


: FRINT "SCHWARZHAARIGES WES 
EN DES ANDEREN GE- SCHLEC 
HTS EENNENLERNEN. ": GOSUB 12 


0: FRINT "ES WIRD LIEBE AUF 
DEN ERSTEN ELICK SEIN.": GOSUB 
120 5 

IFA = 4 THEN FRINT "VORAUS 
GESETZT, DASS DU 800 FFUND 5 


850 


[-1-1%} 


670 


7320 


740 


750 


760 


770 


780 


CHWEREGORILLAS MAGST." 

IFA = 53 THEN FRINT "WEN WI 
LLST DU FOFFEN ";A$;" 7": FRINT 
"DU EREICHST MEHR DURCH ZUFA 

LL. ALS VIELEDURCH ANSTRENGU 

NG EREICHEN !": GÜOSUB 120: FRINT 
"DIES IST SCHON FAST EIN WUN 


DER." 

IFA = 2 THEN FRINT "DR. CH 
ATTERFIELD SAGTE: "=: PRINT "' 
USE IT OR LOSE IT.'": GOSUB 

120: PRINT : FRINT "ICH SCHL 
AGE VOR„ DASS DU ES WEGWIRFS 
=>, 

IFA = 1 THEN FRINT "DU SCH 


UFT SOLLTEST DERJENIGE SEIN, 
DER HIER RATSCHLAEGE GIET. 


FOR I = 1 TO 500: NEXT = RETURN 
GOSUB 1030 

HOME :A = INT CRND (1) * 9 
en! 

IF A = 8 THEN GOSUB 2080: GOTO 
270 

IFA = 6 THEN FRINT "GIB DA 

S DRINKEN UND DEN SEX AUF... 
u... ABER SOFORT !!": GOSURB 
120: FRINT : FRINT "DANN WER 


DEN DEINE SORGEN UM DIE GESU 
ND- HEIT VORBEI SEIN, DENN": 
GOSUB 120: FRINT "DANN HAST 
DU WENIG FUER DAS ES WERT I 
ST zur 
IFA = & THEN FRINT "LEBEN 
UND ES WIRD DIR NICHTS MEHR 
AUSMACHEN. " 


IF A= 7 THEN FRINT "MAN SA 
6T, DASS DIE GUTEN JUNG STER 
BEN...": GOSUB 120: FRINT =: FRINT 


"MEINE DATEN ZEIGEN MIR, DAS 
S DU MINDEST 95 JAHRE ALT WI 
RST." 
IF A= 9 THEN FRINT "GIB DA 
S RAUCHEN, DRINKEN UND DEN S 
EX SOFORT AUF."= GOSUB 12 
O: FRINT "DU WIRST DANN ZWAR 
AUCH NICHT LAENGER LEBEN, 
ABER ES WIRD DIR SO VORKOMM 
ENDEN 


IF A = 1 THEN FRINT "WENN M 
AN SO SIEHT, WIE DU SO LEBST 
"s GOSUB 120: FRINT "DANN 50 


LLTEST DU FROH SEIN, DASS DU 
NOCHAM LEBEN BIST." 


IF A= 2 THEN FRINT "KAUF K 
EINE LF’S MEHR ";A#,".": GOSUB 
126: FRINT "SCHAU NACH, OR D 


EINE VERSICHRUNG BEZAHLTIST. 
"z GOSUB 120: FRINT "FRUEFE, 
WAS DU GERADE GEGESSEN HAST 
mıım 

IF A = 5 THEN FRINT "ICH HA 
B’S DIR NEULICH GESAGT": GOSUB 
120: FRINT "ICH HARB'’S DIR SC 


790 


800 


810 


820 
8350 


840 


850 


860 


870 


880 


890 


700 


HON 1000 MAL GESAGT": GÜSUB 


120: FRINT "DU HEIMLICHER ES 
SER." 
IF A= 4 THEN FRINT "STELLE 


DIE SAUFEREI UND DEN SEX FU 
ER 24 STUNDEN EIN ";A#: GÜSUB 
120° FRINT "..... WENN DU DA 
5 FERTIGBRINGST." 


IFA = 5 THEN FRINT "RAUCHE 
ALLE 4 STUNDEN EINEN JOINT 

UND RUF MICH MONTAG WIEDER 
AN." 

FOR I = 1 TO 500: NEXT I: RETURN 
GOSUB 1030 

HOME :A = INT (C RND (1) * 8 

) +1: IFA = 8 THEN GOSUB 

2080: GOTO 270 

IFA = 1 THEN FRINT "HEIRAT 


E JEMANDEN REICHEN. "Atz;"... 


"z GOSURB 120: FRINT "ODER GI 
B DAS ESSEN AUF.....„.!!" 
"IF A= 2 THEN FRINT "DU BIS 


T 'FUER EIN LEBEN VOLLER VERB 
RECHENGESCHAFFEN ";A#: GOSUB, 
120: FRINT "DU HAST DIE GERI 
SSENSTEN AUGEN DIE ICH JEG 
ESEHEN HABE "As 
IFA = 4 THEN FRINT A$;" EI 
NES TAGES WIRST DU EINE ": FRINT 
"MILLION WERT SEIN": GOSUB 1 
20: IERINTSE PRINT "VEN al 
| IR Im FE 5 
IFA = 5 THEN FRINT "GIB ES 
JETZT AUS, NAECHSTES JAHR W 
IRD ES NICHTS MEHR WERT SE 
IN.": GOSUB 120: FRINT : FRINT 
"ICH HABE GERADE FESTGESTELL 
T, DASS ICH ZU OFTIMISTISCH 
BIN." 
IF A= 6 THEN FRINT "MEINE 
AUFZEICHNUNGEN ZEIGEN MIR, D 
ASS DUDEN STAAT EIS JETZT UM 
MEHER ALS 100000 DM STEUERG 
ELD BETROGEN HAST.": GOSUB 1 
20: G0OSUB 120: FOR I = 1 TO 
1000: NEXT : FRINT "HERZLICH 
EN GLUECEWUNSCH ! I!" 
IF A= 7 THEN FRINT "WENN D 
U ES NICHT MIT DIR NEHMEN KA 
NNST": FRINT At: GOSUB 120: 
"DANN IST DIE ANTWORT EINFAC 
H:": FOR T = 1 TO 120060: NEXT 
Ts PRINT " WEIGRE DICH ZU 
GEHEN ESFIEL 
IFA = 3 THEN FRINT "WIESO 
WILLST DU UNS VORMACHEN,. DAS 
S DU ARM BIST, ";A#: FRINT 
"WIR ALLE WISSEN, DASS ": FRINT 
A#F" EINE MILLION DM WERT IST 
.meennuunuuna"s GOSUB 120: PRINT 
: FRINT "TOD ODER LEBEND !!! 
AN; 


FOR I = 


FRINT 


1 TO 400: NEXT I: RETURN 


930 A 


750 


970 


780 


990 


1000 


1010 


' 1020 


1030 
1040 
1050 
1060 


1070 


1080 
1090 


GOSUB 1050 

= INT CRND (1) * 9) + 1: HOME 
: IF A= 7 THEN GüÜSUB 2080: 
G0T0 270 

IF A= 8 THEN FRINT "WAS WE 


ISST DU UEBER ARBEIT ";A#;"? 
": GOSUB 120: FRINT "DU WIRS 
T SCHON MUEDE, WENN DU ANDER 


EN BEI DER ARBEIT ZUSIEHST 
mıım i 
IF A= 9 THEN FRINT "ARBEIT 
777 "zA&: FRINT "DU KENNST 


NICHT EINMAL DIE BEDEUTUNG 
VON DIESEM WORT": GOSUB 1 
20: FRINT "ICH GLAUBE, DASS 
DU ES NICHT EINMAL BUCHSTABI 
EREN KANNST!!!" 
IFA = 1 THEN FRINT "WEN WI 
LLST DU TAEUSCHEN ";A#;"?": GOSUB 
120: FRINT "DU HAST JAHRELAN 
6 NICHT GEARBEITET." 
IF A= 2 THEN FRINT "ICH GL 
AUBE DU SOLLTEST LIEBER GEBR 
AUCH- TE AUTOS VERKAUFEN "zA' 
$: GOSUB 120: FRINT : FRINT 
"DENN DU BIST HAELST NICHTS 
VON DER WAHR-HEIT." 
IF A= 3 THEN FRINT "DU EAN 
NST MACHEN, WAS DU WILLST. D 
U BISTIMMER IN SCHWIERIGEEIT 
EN ";AF i 
IF A= 5 THEN FRINT "DU SOL 
LTEST EIN STRAND-FLAYBOY WER 


DEN": FRINT A#" ZU ETWAS AND 
EREM BRINGST": PRINT "DU ES 
NICHT." 

IF A= 4 THEN FRINT "VERLA 


'NGE EINE GEHALTSERHOEHUNG! !! 


": G0SUB 120: FRINT =: FRINT 
"UND DANN SCHAUE DICH NACH E 
INEM ANDEREN JOB UM. "zAsz;"." 


IFA = 
270 
FOR I=1i 


6 THEN GOÜSUB 2080: GOTO 


TO 500: NEXT I: RETURN 
INT € RND (1) 
IF E = 1 THEN 1070 
IF K = 2 THEN 1060 
HOME : VTAB 10: HTAB 15: FRINT 
"ICH VEBERLEGE": FOR F = 1 TO 
400: NEXT F: FOR O0 = O0 TO 7: 
S= INTCRND (1) * 30) +1 
:SY= INT CRND (1) # 20) + 
12 HTAB S: VTAR SY: FRINT "I 
CH UEBERLEGE": FOR G = 1 TO 
150: NEXT G: HOME : NEXT 0: 
1080 

HOME :. FOR I = 1 TO & 
"ICH UEBERLEGE": FOR T = 
200: NEXT T: NEXT I 
RETURN 

DATA "WASSERMANN" "FISCH", 
"WIDDER" "STIER" ,"ZWILLINGE" 
„"KREBS" „ "LOEWE" „ "JUNGFRAU", 


Es | 


K= 


GOTO 


FRINT 
I WW 


1100 
1110 


1120 


1130 


1140 


1150 


1160 


1170 
1180 


1190 


1260 


1280 


1290 


1300 


1310 


1320 


"WAAGE" „"SKORFION" ,„ "SCHUETZE 
"„"STEINBOCK" 

INVERSE : FRINT SFC( 40) 
INVERSE : FRINT " 

WILLKOMMEN 

FRINT SFC( 41); 
FRINT " R 
"AFFLE'S as 
FRINT SFC( 41); 
FRINT " FSYCHIATRIE/AST 
ROLOGIE ELINIK "3 SPC( 4 
1)z NORMAL 

FRINT "TAUSENDE KAMEN AUS N 
AH UND FERN UM MICH" 


ZU: DR. 


FRINT "UM RAT ZU FRAGEN. " 
FRINT =: FRINT "ICH STELLE D 
IR FRAGEN." 

FRINT "NACH JEDER ANTWORT M 


USST DU DIE TASTE FRINT " 
AUF DER <RETURN> STEHT DRUEC 
KEN." 

FRINT "DRUECKE JETZT DIE TA 
STE ! GET JA$ > 
HOME : FRINT : PRINT =: PRINT 
: PRINT "DU KAPIERST SCHNELL 
FREMDER. ": "FOR I = 1 TO 150 
0: NEXT : PRINT : HOME 

FRINT "BITTE FOLGE MEINEN A 
NWEISUNGEN. „ 2..." 

PRINR =: FRINT "NUN ZU DEINE 
M HOROSKOF UND ANDEREN 
UEBERRASCHUNGEN. nz ansnnnnnnnn 


FRINT "BEACHTE..: 
R EINGABE DIE 

TASTE DRUECKEN ! tt" 

FRINT = PRINT "GEBE NUN DEI 
N GEBURTSDATUM EIN.": PRINT 
"BITTE BEACHTE: DER 9.MAI": 
"MUESSTE ALS 0905 EINGEGEBEN 

WERDEN. " 

FRINT z FRINT "DAS DATUM MU 
SS IMMER AUS 4 ZIFFERN BE- 
STEHEN: TAG/MONAT.": INFUT " 
GEBEN SIE NUN DAS DATUM EIN 
UND DRUECEENSIE {RETURN> ";B 
B 


NACH JEDE 
<RETURN> 


FRINT 


EB = INT (BE / 100) + 10000 

* ((BB / 100) - INT (BB / 
100)) 

IF BB > 1231 OR BB < 101 THEN 
HOME : FRINT "FALSCHES DATU 
M,. BITTE GIE JETZT DAS D 
ATUM ERNSTHAFT EIN !!"s CHR& 
(7): GOTO 1260 

IF BR « 0120 THEN S = 12: GOSUB 
1410: GOTO 2040 

IF BR « 0219 THEN S = 1: GÜSUB 
1410: GOÜTO 1490 

IF BB « 0321 THEN.S = 2: GOSUR 
1410: GOTO ‚1560 

IF BB « 420 THEN 5 = 3: GOSUB 
1410: GOTO 1616 

IF BB « 0521 THEN S = 4: GOSUB 
1410: G0TO 1660 


„ 
(4 


40 
1350 
1360 
1370 


1380 


1500 


1510 


1520 


1530 
1540 


1550 
1560 


1570 


1580 


15970 


IF BB «© 0621 THEN 
1410: GOTO 1710 

IF BB < 0723 THEN 
1410: GOTO 1750 

IF BB < 0823 THEN 
1410: GOTO 1800 

IF BB <& 0923 THEN 
1410: GOTO 1860 

IF BB « 1023 THEN 
1410: GOTO 1910 

IF BB«< 1122 THEN 
1410: GOTO 1950 

IF BB « 1222 ,THEN 
1410: GOTO 1990 
S = 12: GOSUB 1410: 
[P) 

FRINT : 
FOR I = 
READ Si#+ 
NEXT I 
HOME 
FRINT "DEIN STERNZEICHEN IS 
T: ":51$ 

FRINT 

RETURN 

FRINT "DU HAST EIN ERFINDER 
ISCHES GEHIRN UND NEIGST D 
AZU FORTSCHRITTLICH ZU SEIN. 


GOSUB 

SOsuR 

GOSUB 

GOSUB 

GOSUB 

10: GOSUB 
= 11: GOSUB 
G0OTO 204 


FRINT 
17058 


FRINT "DU SCHWINDELST OFT. 
AUSSERDEM BIST DU SCRGLOS 
UN UNFRAKTISCH. DESHALB MACH 
ST DU DIE GLEICHEN FEHLER I 
MMER WIEDER." 

FRINT "DIE LEUTE DENKEN DES 
HALE„ DASS DU DUMM BIST" 


FOR I = 1 TO 4200: NEXT I: FRINT 
®: FRINT "SIE HABEN RECHT !!" 
FRINT 

FRINT "EINIGE BEKANNTE DEIN 


ES STERNZEICHENS SIND: 
UL NEWMAN. THOMAS EDISON, 

FRANELIN ROOSEVELT, GEÜR 
GE BURNS, CLARK GABLE, UND 6 
ALILEO. " 


FA 


G0T0 2070 

FRINT "DU HAST EINE LEBHAFT 
E FHANTASIE UND SLAUBST 
OFT VOM 'CIA’ ODER KGB’ VER 


= FOLGT ZU WERDEN." 

FRINT "DU HAST WENIG EINFLU 
SS AUF DEINE MIT- MENSCHEN 

UND DIE LEUTE NEHMEN ES DIR 

UEBEL. DASS DU MIT DEINE 
R ERAFT ANGIBST." 

FRINT "DU HAST WENIG SELBST 
VERTRAUEN. ABER DU BESIT 
ZT VIEL KUENSTLERISCHES TALE 
NT." 

FRINT : FRINT "BERUEHMTE FI 
SCHE: EINSTEIN, CARUSO, 
CHOFIN. MICHELANGELO, VICTOR 

HUGO, RUDOLFH NUREYEV, 

RENOIR UND LIZ TAYLOR." 


1800 
1610 


1850 
1660 


1670 


1680 


1690 


GOTD 2070 

FRINT "DU BIST EIN FIONIERT 
YF UND DIE MEISTEN LEUTE SI 
ND ZUFRIEDEN MIT DIR." 

FRINT "DU BIST UNGEDULDIG U 
ND NIMMST KEINEN RATERNST." 
‚ FRINT "DU UEBERSCHAETZT OFT 
DEINE FAEHIGEEITEN. " 

FRINT "BERUEHMTE WIDDER: MA 
RLON BRANDO. HARRY HOUDINI, 

NIEITA ERUSHCHEV, FETER 

USTINOV,. CHARLES CHAFLIN 

UND BETTE DAVIS" 

G0T0 2070 

FRINT "DU BIST GESCHICKT UN 
D BESTAENDIG. DU HAST SEH 
R VIEL ENTSCHLUSSERAFT UND A 
R- BEITEST WIE DER TEUFEL." 


FRINT "DIE MEISTEN LEUTE ME 
INEN, DASS DU STUR BIST, WA 
HRSCHEINLICH HABEN SIE AUCH 

RECHT.” 

FRINT "DU BIST NICHT UNRBEDI 
NGT ERSTEALSSIG. " 

FRINT "BERUEHMTE STIERE: WI 
LLIE MAYS, SHEAKESF 
ARE, HARRY TRUMAN, BARBARA 

STREISAND, ORSON WELLS U 
ND ADÜLFH HITLER" 

G0TO 2070 

FRINT "DU BIST EIN SCHNELLE 
R UND ELUGER DENKER.ABER DU 
SIEHST OFT DINGE DOFFELT, LI 
EGT DAS VIELLEICHT AM ALKOHO 
L >" 

FRINT "ZWILLINGE SIND DAFUE 
R BEKANNT, DASS SIE VIELES Z 
U LEICHT NEHMEN. " 

FRINT "BERUEHMTE ZWILLINGE: 

BOB HOFE,„ AL JOLSONERROL FL 
YNN, JOHN KENNEDY, JUDY GARL 
AND&CHARLIE BROWN" 

G0TO 2070 

FRINT "DU BIST SYMFATHISCH 
UND VERSTEHST DIE PROBLEME 
ANDERER LEUTE." 

FRINT "DIE LEUTE MEINEN, DA 
SS DU EIN EINFALTS- FINSEL B 
IST." 

FRINT "DU SCHIEBST WICHTIGE 

DINGE IMMER AUF, DESHALB 
ERINGST DU ES ZU NICHTS." 

FRINT "BERUEHMTE KREBSE SIN 
D: JULIUS CAESAR. HEINRICH 

VIII., REMBRANDT, GINA 
’ LOLLOBRIGIDA, FHYLLIS DI 
LLER UND SIE NATUERLICH. " 


G0TO 2070 
FRINT "DU. GLAUBST, DASS DU 


DER GEBORENE FUEHRERBIST. DI 
E ANDEREN DENKEN ABER, DASS 
DU EIN STREBER BIST." 

"DIE MEISTEN LOEWEN S 


FRINT 


1820 


1830 
1840 


1850 
1860 


1870 


1880 


1890 


1900 


1910 


1920 


1930 


1740 


1950 


1960 


1970 


IND TYRANNEN. SIE KOENNEN 
EHRLICHE KRITIK NICHT VERTRA 
GEN." 

FRINT "BERUEHMTE DIEBE WARE 
N LOEWEN." . 

FRINT 

FRINT "DIE BERUEHMTESTEN LO 
EWEN WAREN: NAFOLEOE 
N BONAFARTE. FIDEL CASTRO, M 
AE WEST, MUSSOLINI, LUCILLE 
BALL. JULIA CHILS UND ED 
DIE FISHER." 

GOTO 2070 

FRINT "DU BIST EIN LOGISCHE 
R TYF UND HASST UN- ORDNUNG. 
DIESE ORDNUNGSLIEBE GEFAELL 
T DEINEN FREUNDEN NICHT." 


FRINT "EIN GUTER BERUF FUER 
JUNGFRAUEN WAERE  BUSFAHRE 
Re" 

PRINT 

PRINT "BERUEHMTE JUNGFRAUEN 


: LAURENN BACALL. INGRID B 
ERGMANN, SID CAESAR, HENRY F 


ORD II., SOPHIA LOREN, FETER 
SELLERS. " N 
E0TO 2070 : 
PRINT "DU BIST KUENSTLERISC 


H VERANLAGT UND HASTFROBLEME 

MIT DER REALITAET." 

FRINT "DIE CHANCEN FUER EIN 
EN BERUF UND GELD- VERDIENE 
N SIND GUT." 

FRINT = FRINT "BERUEHMTE WA 
AGEN: CHARLES BOYER, TRUMAN, 

FRANZ LISZT, CHARLTON HESTO 


N UND BRIGETTE BARDOT. 
GOTO 2070 
FRINT "DU BIST KLUG IN GESC 


HAEFTEN UND MAN ‚, KANN DIR 
NICHT IMMER. TRAUEN. " 

FRINT "DU WIRST DEN GIPFEL 
DES ERFOLGS ER- REICHEN 
WEIL DU KEINE SKRUPEL HAST." 


PRINT : PRINT "BERUEHMTE SC 
ORFIONEN WAREN: LUCKY 
LUCIANO, AL CAFONE,„ NATHAN D 


ETROIT." 
G0TO 2070 
FRINT "DU BIST OFTIMISTISCH 


UND BEGEISTERT. DU HAST 
DIE LEICHTSINNIGE ART IMMER 
AUF DEIN GLUECK ZU VERTRAUEN 


u 


"PRINT "DIE LEUTE LACHEN REG 


ELMAESSIG UEBER DICH" 
FRINT " j 
FRINT "BERUEHMTE SCHUETZEN: 


BEETHOVEN. WINSTON CHURCHIL 
L, MARK TWAIN, WALT DISNEY, 
FRANK SINATRA, MARIA CAL 
LAS, % BETTY GRABLE." 
GOTO 2070 


2040 


FRINT "DU BIST STILL UND VE 
RLAESSLICH. ZU- MINDEST 
IST DAS DER EINDRUCK, DEN DU 

GEBEN WILLST WAEHREND DU 
| R DICH ZUR SFITZEHOCHARBEITES 

T,® 

FRINT "STEINBOECKE SIND VER 
SCHAEMT UND SCHWER ZU VERFU 
EHREN. " 5 

FRINT =: FRINT "BERUEHMTE ST 
EINBOECKE: RICHARD NIXON, 
LOUIS FASTEUR, HUMFHREY BOGA 
RT, HOWARD HUGHES UND ALBER 
T SCHWEITZER. " 

FRINT : FRINT "BIST DU BERE 
IT FUER WEITERE RATSCHLAEGE,. 
DANN DRUECKE <RETURN>.";: GET 
JA$: GOTO 180 
EE = INT RND ci} * 2) #1 
s IF EE = 1 THEN 2130 

HOME : FOR O0 = 1 TO 5: 
I = 1'T0 Sö:XX = 
1) *3N + 1:YY = 
AU RZON + 19 
YYi 
(1) 
[e} 
2100 


2050 


2060 


2070 


2080 
2090 FOR 
INT ( RND 
INT ( RND 
HTAB XX: VTAB 
FRINT CHR& ( INT ( RND 
'* 70) + 50)z NEXT I: NEXT 


HOME = FRINT "ENTSCHULDIGUN 
G, "zA$ 

FRINT : FRINT "ICH MUSS KUR 
Z AUSGEFLIPPT SEIN. sannnnn" 


z110 


2120 PRINT = FRINT "JETZT IST WI 
EDER ALLES 0O.Kk., LASS UNS 
MIT DER SITZUNG FORTFAHREN. " 
ı FOR I = 1 TO 4000: NEXT : 
: RETURN 

2130 FRINT = FRINT : FRINT "SORR 


HOME 


2140 


5400 


S500 
5600 
’ 


’ 


5700 


Y, "3A#;" MANCHMAL WIRD MIR 
BANG": FOR I = 1 TO 700: NEXT 

I: FRINT : FRINT "ICH GLAUBE 
GLEICH FASSIERT ETWAS. ...": 

FOR I = 1 TO 600: NEXT I: PRINT 
“gg DEAR Sa nn nn 


Kae 


600: NEXT I 
FOR I = 1 TO 60:YY = FEEK 
( - 16336): FRINT CHR#& (75. 
= NEXT Iz PRINT "HUI! ";AF;" 
HAST DU ETWAS VALIUM??": FRINT 
"ICH WERDE VON ZEIT ZU ZEIT 
ZITTERIG.": FRINT "ABER JETZ 
T GEHT’S WIEDER, LASS UNS 
WEITERMACHEN. " 
FOR I = 1 TO 4500: NEXT I: 
REM ERKENNUNGSROUTINE HIER 


RETURN 


REM FUER EIGENEN GEBRAUCH 

REM ABAENDEREN 

HOME =: FRINT = FRINT =: FRINT 

: IF A$ = "JOHN" THEN FRINT 
"WIE GEHT'S IM GEMUESEGESCHA 
EFT, HERR MUELLER???": RETURN 


IF A& = "EUGEN" THEN FRINT 
"HALLO EUGEN HAST DU DEINE A 
UFSAETZE SCHON EORRIGIER 
T ?7?77?"z2 RETURN 

IF A$ = "HARRY" THEN FRINT 
"LAUEFST DU IMMER NOCH SARAH 
NACH??": RETURN 

FRINT "DEINE DATEN WURDEN D 
EM ‘MAD’ UEBERGEBEN,";A#$;" I 
CH KANN ALSO NICHTS UEBER": 
"DICH SAGEN. " 

RETURN 


FRINT 


Galgenraten 


für den Apple II 


Das Programm Galgenraten, auch bekannt unter dem Namen Gal- 
genmännchen, entspricht im Spielablauf dem allseits bekannten 


Unterhaltungsspiel. 


Man kann sich hier allein mit dem 
Computer vergnügen, indem man per 
Zufallsgenerator die eingegegebenen 
Wörter abruft und diese durch Eingabe 


von einzelnen Buchstaben erraten 
muß. 


Es können 20 leichte Wörter ab Basic- 
100 
210: 3 
120 
130 
140 
150 
160 


ben werden. 


REM GALGENRATEN BY M. HAINES 


LOMEM: 16384 
CLEAR : DIM’A$(40) 
GOSUR 270 


HTAB 1:2 VTAR 11: PRINT " 


Zeile 20 000, 20 mittelschwere Wörter 
ab Basic-Zeile 30 000 und 20 schwere 
Wörter ab Basic-Zeile 40 000 eingege- 


Bei jeder Falscheingabe baut sich der 
Galgen am Bildschirm weiter auf, bis 
Sie schließlich bei nichterraten des 


HTAB 1: VTAB 8: PRINT "EINGABE DES ZU ERRATENDEN WORTES DURCH :" 
«1>  COMPUTERAUSWAHL (LEICHT)" 


Wortes gänzlich baumeln müssen. 

Bei der zweiten Variation können 
zwei Spieler mitmachen. Der eine darf 
sich ein Wort ausdenken und in den 
Computer eingeben, welches dann der 
andere erraten muß. 


170 
180 
190 
200 


210; 


220 
230 


| LEN (X$)sA$(I) = MID$ (X$,1,1): NEXT =: GOTO 1090 


240 


O LEN (X$)z:A$tI) = MID$ (X$,1,1): NEXT : GOTD 1090 


250 


O0 LEN (X$)z:A$(I) = MID$ (X$,1,1): NEXT : GOTO 1090 


260 
270 
EN 
280 


T MEHR ALS 30 BUCHSTABEN)" 


290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 


PRINT : PRINT " <2> COMFUTERAUSWAHL (MITTEL)" 
PRINT = PRINT " *3>  COMPUTERAUSWAHL (SCHWER) " 
PRINT : PRINT " <4> EINGABE DURCH DEN MITSFIELER" 
HTAB 10: VTAB 25: PRINT "BITTE WAEHLEN SIE "5 

GET TT$: IF TT$ > "4" OR TT$ < "1" THEN 200 

IF TT$ = "4" THEN GOSUB 270: GDTO 280 

IF TT$ = "1" THEN RESTORE : FOR I = 1 TO ( RND (1) * 20 + 1): READ X$: NEXT : FOR I = 1 T0 


IF TT$ = "2" THEN RESTORE : FOR I = 1 TO ( RND (1) * 20 + 21): READ X$: NEXT : FOR I 1 


IF TT$ = "3" THEN RESTORE : FOR I = 1 TOD ( RND (1) # 20 + 41): READ X$: NEXT : FOR I 


17 


GOSURB 270: GOTO 280 

HOME : INVERSE : FOR I = 1 TO 41: PRINT "7 NEXT 2: PRINT SPC 395 "44"3" GAL-6 
RATEN "5"47"3 SPC( 38): FOR I = 1 TO Al: PRINT "%"52 NEXT : NORMAL : RETURN 
HTAB 1: VTAB 9: FRINT "GEBEN SIE DEN ZU ERRATENDEN BEGRIFF EIN:": PRINT : PRINT " (NICH 


VTAB 20: PRINT" annnnnnn PLELFEETLLIITELEETLET EG 

VTAB 18: HTAB 20 

CLEAR : DIM A$(40) 

FOR I = 1 TD 40 

GET A$(I): VTAR 18: HTAB (20 - 1 / 2): FOR J = 1 TO I: PRINT A$(J)5: NEXT J 
IF A$(I) = CHR$ (13) THEN GOTO 1090 

NEXT I 

G0TO 1090 


REM AUFBAU DES GALGENS 


CALL - 1052: HPLOT 178,58 TO 180,75 

HPLOT 182,58 TO 182,75 

HPLOT 181,57 TQ 179,50 

HPLOT 179,50 TO 173,47 

POP : GOTO 1430 

HPLOT 152,58 TO 150,75 

HPLOT 148,58 TO 148,75 

HPLOT 149,57 TO 151,50 

HPLOT 151,50 TO 157,47 

HPLOT 174,86 TO 172,76: HPLOT 175,102 TO 175,87 

HPLOT 166,85 TO 168,102 

HPLOT 175,102 TO 168,102 

HPLOT 172,102 TO 172,105: HPLOT 169,102 TO 169,109 
HPLOT 169,109 TO 180,109: HPLOT 180,109 TO 178,106 
HPLOT 177,106 TO 172,105 

HPLOT 156,86 TO 158,76: HPLOT 155,102 TD 155,87 

HPLOT 165,76 TO 165,85 | 
HPLOT 164,85 TO 162,102 

HPLOT 155,102 TO 162,102 

HPLOT 158,102 TO 158,105: HPLOT 161,102 TO 161,109 
HPLOT 161,109 TO 150,109: HPLOT 150,109 TO 152,106 
HPLOT 153,106 TO 158,105 

HPLOT 163,42 TO 163,45: HPLOT 167,42 TO 167,45 

HPLOT 157,48 TO 162,46: HPLOT 173,48 TO 168,46 

HPLOT 154,51 TO 156,49: HPLOT 176,51 TO 174,49 

HPLOT 154,52: HPLOT 176,52 

HPLOT 153,53 TO 157,74: HPLOT 177,53 TO 173,74 

HPLOT 158,75 TO 172,75 | 
HPLOT 165,70: HPLOT 165,65: HPLOT 165,60: HPLOT 165,55 
HPLOT 165,15 TO 165,25 

HPLOT 163,26 TO 167,26 

HPLOT 160,28 TO 162,27: HPLOT 170,28 TO 168,27 

HPLOT 158,30: HPLOT 159,29: HPLOT 172,30: HPLOT 171,2 
HPLOT 158,31: HPLOT 172,31 

HPLOT 157,32 TO 157,36: HPLOT 173,32 TO 173,36 

HPLOT 158,37: HPLOT 172,37 

HPLOT 158,38: HPLOT 159,39: HPLOT 172,38: HPLOT 171,39 
HPLOT 160,40 TO 162,41: HPLOT 170,40 TD 168.41 


780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 


HPLOT 
HPLOT 
HPLOT 
HPLOT 
HPLOT 
HFLOT 
HPLOT 
HPLOT 
HPLOT 
HFLOT 
HPLOT 
HPLOT 
HPLOT 
HPLOT 
HPLOT 
HFLOT 
HPLOT 
HPLOT 
HPLOT 
HPLOT 
HPLOT 
HPLOT 


HPLOT 
HPLOT 
HFLOT 
HPLOT 
HPLOT 


163,42 TO 167,42 


165,33 TO 165,35: HPLOT 164,35 TO 166,35 
163,36: HPLOT 167,36: HPLOT 164,37 TO 166,37 


162,32: HPLOT 168,32 


160,25 TO 161,27: HPLOT 170,25 TO 169,27 
163,24 TO 164,27: HPLOT 167,24 TO 166,27 
158,27 TO 159,29: HPLOT 172,27 TO 171,29 


115,20 TO 125,10 
115,30 TO 135,10 
115,0 TO 170,0 
115,10 TO 170,10 
170,0 TO 170,10 
165,11 TO 165,13 
166,14: HPLOT 165,15: HPLOT 164,14 
105,130 TO 105,0 
115,130 TO 115,0 
105,0 TO 115,0 
0,145 TO 279,145 


70,145 TO 70,140: HPLOT 150,145 TO 150,140 
70,140 TO 75,140: HPLOT 150,140 TO 145,140 
75,140 TO 85,130: HPLOT 145,140 TO 135,130 


85,130 TO 135,130 

220,135 TO 226,129 

220,129 TO 226,135 

223,132 TO 227,145 

237,131 TO 241,134: HPLOT 237,134 
227,145 TO 239,133 


RETURN 


REM 


ENDE AUFBAU DES GALGENS 


HGR = HCOLOR= 3 
GOSUB 1270: GOSUR 1370 


DIM B$(40)2 DIM C$(I): LET C$(I) = CHR$ 1679) 


LET 272 = 1 


GET B$(2Z): IF ASC (B$(ZZ)) < 45 OR ASC (B$(ZZ)) > 93 THEN 1130 


VTAB 


24: HTAB 13: PRINT " 


FOR JJ = 1 T0 1 


VTAB 


IF A$(JJ) 
IF As(JJ) 


21: HTAB 20 - 1/2 +W 


NEXT JJ 
GOSUR 1300 


IFR 


=Q@THEN LETS=S +1 


LETR=Q 


ON S 


GOSUB 950, 920,870, 850,690, 620,550, 490, 450, 400,270 


LET ZZ 27 + 1 
GOSURB 1360: GOSUR 1370 


GOTO 
HTAB 


1130 


1: VTAB 21: PRINT SPC( 18-17 D;"> 


FOR II = 1 TO I - 1: PRINT "."}2 NEXT : 


VTAB 23: HTAR 7: FRINT "ABCDEFGHIJKLMNOFORSTUVWXYZ": RETURN 


LEE E=7 
FOR WU = 1 T01I 
IF A$(UU) = C$(UU) THEN LETE=E+1 


NEXT 
IF E 


UU 
= I THEN FOP : GOTO 1380 


RETURN 


VTAR 
VTAB 
HOME 
VTAR 
VTAR 


23: HTAB ( ASC (B$(ZZ - 1)) - 589): 
24: HTAR 


21: HTAB 4: FRINT "ICH GRATULIERE, DU HAST ES ERRATEN" 
23: HTAB 20 - I / 2: INVERSE : FRINT " "3: 


FRINT " "2 NORMAL 
1410 FOR JJ = 1 TO 10: FRINT CHR$ (7:: NEXT 


1420 GOTO 1480 


B$(ZZ) THEN PRINT B$(ZDI: LETQ=Q +1 
B$(ZZ) THEN LET C$(JJ) = B$(Z7Z7) 


PRINT B$(Z7Z - 1): 
14: FRINT "NEUE EINGABE"3: FRINT CHR$ (7);5: VTAB 1: RETURN 


1 TO I - 1: FRINT At(JJ)5: NEXT : 


1430 
1440 
1450 
1460 
PRINT " ": NORMAL 


HOME 

VTAB 21: HTAB 8: 

PRINT "DAS ZU ERRATENDE WORT WAR=” 
VTAB 23: HTAR 20 - 1 / 2: INVERSE : 


1470 FOR JJ = 
1480 VTAB 1: 
1490 END 

1500 : 
20000 
20010 : 
20020 DATA 
20030 DATA 
20040. DATA 
20050 DATA 
20050 DATA 
20070 DATA 
20080 DATA 
20090 DATA 
20100 DATA 
20110  DATA- 
20120 DATA 
20130 ° DATA 
20140 DATA 
20150 DATA 
20160 DATA 
20170 DATA 
20180 DATA 
20190 DATA 
20200 DATA 
20210 DATA 
20220 : 
30000 
30010 : 
30020 DATA 
30030 DATA 
30040 DATA 
30050 DATA 
30060 DATA 
30070 DATA 
30080 DATA 
30090 DATA 
30100 DATA 
30110 DATA 
30120 DATA 
30130 DATA 
30140 DATA 
30150 DATA 
30160 DATA 
30170 
30180 
30190 
30200 
30210 
30220 : 
40000 
40010 : 
40020 
40030 
40040 
40050 
40080 
40070 
40080 
40090 
40100 


1 TO 10: 
GET Y$: 


PRINT CHR$ (75: NEXT 
HGR =: TEXT =: RUN 


REM 20 LEICHTE WOERTER 
TELLER 
WASSER 
REGEN 
LAMPE 
FAHRRAD 
WOLKE 
FEUER 
STURM 
SCHWIMMEN 
FUSSBALL 
HANDSCHUH 
TEPPICH 
SONNE 
OSTERN 
FERNSEHER 
FENSTER 
TISCH 
KOCHTOPF 
TREPPE 
HEIZUNG 
REM 20 MITTELSCHWERE WOERTER 
RAUMSCHIFF 
SCHWIMMBAD 
TURMUHR 
SCHNEEBALL 
SCHLITTEN 
ROLLER 
BUCHLADEN 
SCHULHAUS 
ERDBEEREN 
BEKLEIDUNG 
FENSTERRAHMEN 
EINKAUFEN 
BLUMENVASE 
BRUNNEN 
SCHUHSOHLEN 
RENNRAD 
AUTOMOBIL 
KOFFER 
MEHLSPEISE 
SONNENBRILLE 


20 SCHWERE WOERTER 


LEXIKON 
PUDDING 
KNOBLAUCH 
VIDEOREKORDER 
SCHRITTWEITE 
ERDUMLAUFBAHN 
ZEITZEICHEN 
ERDKUNDE 
DOLCH 


PRINT ® "5: 


40110 
40120 
40130 
40140 
40150 
40160 
40170 
40180 
40190 
40200 
40210 
40220 : 


FOR JJ 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


50000 REM ENDE DATENFELD 


FRINT A$(JJ)5: NEXT : 


=1T01-1: 


DAMPFSCHIFFAHRT 
RENNPFERD 
MESSERSCHARF 
SCHIESSPULVER 
HANDSCHELLEN 
ARBEITSLOSER 
ZEITUNG 
SFIEGELUNG 
STAUBSAUGER 
KAISERSEMMEL 
KIRSCHKUCHEN 


COMMODORE 64 ie 
Odyssee 


für den C 64 


”Odyssee” auf dem C 64 geschrieben, ist einem Grafikadventurespiel gleich. Das 
umfangreiche Programm arbeitet mit selbstdefinierten Zeichen, mit Sprites und 


Sound. 
Ziel ist es, ein in hochauflösender Gra- | bringen. liche, unterirdische Labyrinth einer 
fik dargestelltes Labyrinth zu durch- | Aber wie jedes andere Abenteuerspiel, | längst vergessenen Stadt, bewachen die 


queren und bis zu dessen Ausgang, | wurde auch dieses mit genügend Ge- | nicht zur Ruhe kommenden Toten, 
möglichst viele Goldmünzen und | fahren und Hindernissen konstruiert. | ihre zu Lebzeiten zurückgelassen- 
andere Kostbarkeiten an sich zu | Auf den Weg durch das unheim- | en Schätze. 


* - [73 
: = 
er 


3 
r 


4 


i 


jaaa REM ODYSSEE 873.83 BY PETER MEHKE 
ia1a DIM M$X3S,.15:DIMMC3S,3> 

1a2a vV=-523243:5=54272 :POKEY+33,14 :POKEY+32 ,5 :POKEY+16 ,8:BB=RNDGL-TI> sK=15 
1a3ca DEF FNREFF>=R KPEEKKS+ZFIORFF>ANDF > 

1242 PRINT" RpkPPPrIreuTNITIALTSIERUNG" 

1252 POKESS,2:POKESS,S6 

1asa PÜkE 33272,£2PEEK{S3272> AND 24a>+14 

ara PükE 565334 ,PEEK?S6E324 )AND2S4 

iaga POKE 1,PEEK“1> AND 251 

1230 FOR I=@T01538 :POKEI+14336 ,PEEKI+53248) :NEXT 

1100 POKE 1,PEEKK1> OR 4 

1112 POKE 565334 ,PEEK?SSE334>) OR 1 

1120 POKEY+32,7:POKEY+33,7:PRINT" Im" 

1130 PRINT'IRRRRRRRBIHLEITLUNG" 

1140 PRINT'IRBRERERBT 

1150 PRINT"BBEIEL DES SPIEL IST ES, WON IHRER" 

i1sa PRINT"BHEIMAT-BURG ZUR ZIEL-BURG ZU GELANGEN. " 

117@ PRINT"IHEDER SCHRITT KOSTET SIE 1 YORRAT." 

1130 PRINT"WIM LABYRIHTH BEFINDEN SICH ZAHLREICHE 
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onputer, 
zur ac 


1194 
i2aa 
1210 
1220 
1230 
1240 
1250 
1250 
1270 
t280 
1294 
1300 
1318 
1320 
1330 
1348 
1354 
1350 
1370 
1380 
1390 
1400 
1410 
1420 
1432 
14486 
1450 
1450 
1470 
1480 
143904 
15a0 
1510 
1520 
1520 


154 


15508 
15502 
15720 


PRINT" MONSTER! SIE BEWRCHEN SCHRETZEXGELD) ." 
PRINT" WORRRETE UND MAGISCHE WUARFFEN. " 

PRINT" FUER SCHRETZE KOENNEN SIE BEI IHRER 
PRINT" HEIMAT-BURG ODER EINEM HANDELS-" 
PRINT" REISENDEH YÜRRRETE EINKAUFEN." 

PRINT" MAGISCHE WAFFEN ERHOEHEN IHRE KAMPF- 
PRINT" STRERKE. 

PRINT" SIE HABEN VERLOREN, WENN WENN SIE 


PRINT"BKEINE KAMPFSTRERKE ODER YORRRETE MEHR 
PRINT"BBESITZEN. STEUERUNG JOYSTICK PORT 2." 
PRINT"B YIEL GLUECK I 1" 

GOSUBZZIA 

GoTo1538 


POKES+24 ,128:POKES+13,80:POKES+15, 120: POKES+20,74 :G=14348 : POKES+18,123 
F=255:POKE G6,255:POKE G+1,FHNAC126) 
POKEG+2 ,FNRAC 128) :POKEG+3 ,FNHRCI26> 
F=126:POKEG+4 ,FNR£ SE) :POKEG+S,FNRALER) 
F=24 :POKEG+S ,FHRCOD :POKEG+7 „FNACO) 
G=G+8 

POKEG+R ,FNRLA> :POKEG+1,FHRCA) 

F=126 :POKEG+2 ,FNRATSR) :POKEG+3 ,FNALSR) 
POKEG+4 ,FNA«C 128) :POKEG+S .FNAL126> 
F=255 :POKEG+7 ‚255: POKEG+S ,FHAC126> 
G=14864 ;FF=255 :POKES+18,129 
FORI=aT07 :POKEG+T „FHACSR)> :NEST 

G=G+3 :POKEG ‚PEEK“S+27> »POKEG+1 „PEEK?S+27) 
FORI=ZTOS :POKEG+1 ‚255 :NEXT 

POKEG+S8 ‚PEEK“S+275 :POKEG+7 ,PEEK(S+27> 
G=6+3 

POKEG ,‚PEEKKS+27) :POKEG+1 ‚PEEKLS+27) 
POKEG+2,FNRLSAD :POKEG+3,FHACER> 
POKEG+4 ,FNACER) :POKEG+S,FHRACSAD 
POKEG+8 ,PEEKtS+275 :POKEG+7 „PEEK(S+27> 
PÜKES+13,E:RETURHN 


aria: 
a:POKEW+33 


POKEW+3Z 
POKEW+17T :18>:60T01780 
FOR I=GT082 :RERDA:POKE S32+1,R:NERT 
‚aaa, can 
aaer, za 


by 


DATR Asa, aaa, A 
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DATA 122,202, aaa 


168520 
1550 
1870 
16588 
1594 
ıiraa 
ırıa 
irza 
ira 
ir42 
1750 
irsa 
1770 
ir80 
1730 
1500 
1s1& 
1824 
1834 
1940 
1854 
1850 
1870 
1380 
1890 
19a0 
1351@ 
1924 
1334 
1340 
1350 
19688 
1370 
1380 
1394 
zaag 
zaia 
zeaza 
zaza 
zaga 
zasa 
zase 
zara 
zasa 
zasa 
zıac 
ziıa 
2122 
z120 
2ıga 

2152 
zı1sa 


DATA 231 ,2aa, aaa 
DATA vrrsrrrRr III Irre Ir Irre II EFF I II I I I 
FÜR I=aT082:READA:PÜKE S98+1,R:NEXT RETURN 
DATR Asa, aaa aaa 
DATR Asa, aan, aaa 
DATR 255,202, aaa 
DATR A623, 2aa, aaa 


‚DATR 256, aaa, aaa 


DATR 255 ,.2aa, aaa 

DATR 255, aaa, aaa 

DRTR 055,202, aaa 

DATR „rrrssereerrer er FRI er II Er Ir I RR II II IF RE 

POKE 2049,13: POKEW+21 1: POKEW+27 .1 

POKE W+39,7 :8=2 :7=4 :71=1 :POKEY+1 ,74 :POKEY ‚32 :BB=2 :G0T01385a 
Al=a:r1=0:A=FRELO) SR=SPEERLSSF2A) 

IF£AR ANDI>=SBTHENYI=-1:%81=9:60T0 1850 

IF£R ANDZ>=SRTHENTI=1 2 GOTO 1850 

IF£R AND4>=SBTHENYI=SR:K1=-1:00T0 1850 

IF£R ANDS>=ATHENYI=SRGK1=1 
GSOSUB3?2U:Z=PEEK EHI R4A+H ++ 123) 
IFZ<F32THENIFZI>FATHENIFZS>SITHENI SER 

IF#1=AANDYI=OTHEN1SBG 

FORI=1T08:POKE Y+1,3#Y+ I#Y1+42:NEKXT erer+rl 

FÜRI=1T08 :BB=3%#<+ I#<1+15 

IF BE>2SSTHENPOKEY,BB-255 : PÜKEY+16S „1 

IF BBEC2ZSSTHENPOKEY.BB:POKEY+1S,0 

NE&T 

BeHtkl 

IF#I<FaORYI<>ATHEN POKE 'za4a, 14 :505UB14 20 :R=R-1 :G0SUB353A :POKE2A4A , 13 
Zei 1 HH 123 

IF PEERÜZ-1>=7ATHENIFLPEEKKZ-1+S>ANDLSI=3THENM=Z-1 :G0SUB2AZA 
IFPEEK Z+40>=FATHENIFCPEEKL Z+40+S > ANDLSI=SSTHENM=Z+4R :GOSUBZABA 
IFPEERXZ-4@)=FÜTHENIFLPEEKLZ-40+5>AND1ES STHENM=Z-42:G0SUBZABA 
IFPEEKXZ+1>=F7OTHENIFEPEEKKZ+L+SPANDLSI=3THENN=SZ+1 :GOSUBZABA 
IFPEER%Z3=&3THENGOSUB271A 3 P1=-F1 :41=-K1 :G0T01350 
IFPEEK{Z>=FATHEN214R 

GoTa1saa 

GOSUBZASIA:GOSLBFITZE 

RETURN 

FORI=1TO3S : IFM=MEIT,@>+1A24THENPOKEM+S ,MEI,1) :GOSUB2ZAFA RETURN 
HE#T:=RETURH 

POFRES+S, 1202; POKES+S ,2a 

FORI=1TO1E 

POKEM,TEGPOKES+1, IE 1A :POKES+4 ,17 

FORI=1TOSEGHEHTSPORES+4 .0 

PÜKEM. 138: POKES+1 .45: POKES+4 „17 

FÜR I=1TOSGGHNERTSPOKES+4 ‚0 

HE#T=POKEM.TERRETURN 

FORI=S1ITO3SSIF Z=eMiI,a>+1a24THEN21SA 


=ATHEHZSIE 
El EHTDECKST EIN MONSTER 
SE: IFHE=1THEHN 
MONSTER" 


="QL! HAST WERL 
THEHAS="DL KONNTEST JEDOCH HOCH ENTKOMMEN" 
As="ni m "+STRELYERZAI+" GOLDMLENZEN ABGEBEH" 


1 
wo 
& 
5 


IUIESENENEN 


1] 
da 
'D 
m 


2450 
2450 
zara 
2420 
2430 
25a 
2510 
2520 
2es3a 
254 
2550 
25a 
zara 
25a 
2530 
2sa0 
RN 
2818 
2820 
2834 
2840 
2850 


ze 
za 
zeaa 


a Er 
sonmma 


.Z=PEEK.CKY-1DH4A+R+ 123) EL IFZSCHB2THENZESR 


IF WEZSTHEHR$F="N":GOTOZZZA 

A$="ZUSRETZLICH ERBEUTET DAS MÜNSTER" :GOSUBZASA 

A$=3STRELYE-3)+" YVORRAETE |" :R=R-LYE-3) :GOSUBZARE 

IF YVEZSTHEHRF="N":G0OTO2Z20 

A$="DAS MONSTER HAT DICH SCHWER WERLETZT !11":GOSUBFASE 

A$="DU YERLIERST"+STRELINTEWEF2DD+H" AN KAMPFSTREREE" cK=K-INTEWER3D 
GSOSUBZABE:AF="N":GOTO2220 

As="DU HAST GEWONNEN 111" :GOSLIBSASE 

IFM$CM,1><>"YORRRETE" THEN24AG 

A$="DLU ERBEUTEST"+STREEMEM,.3D5+" YVORRRETE":R=SR+MCM,3> :GOSUBZEABA:GOTIZISA 
IF M£M,3>>3THENGOTO2448 

As="DL ERBEUTEST EINE MAGISCHE WHAFFE:" sGOSUBSaBE 

A$=MELM.13+" SKAMPFSTREREE :"+STR$EMEM, 335 3+" 3": GOSUBZABE 
K=k+M£M,3>:G0T02480 

IFMEM,3D=93PTHEHAF="DU ERHAELST YOM BESIEGTEHN MONSTER" :GOSUBFASA:GOTOZELA 
A$="DAS MONSTER BEWACHTE EINEN SCHATZ 1" :GOSUBSASA :AF=MELM, 1) sGOSLUBZABE 
A$="DER SCHATZ IST"+STR$EMEM,3>)+" GOLDMUENZEN WERT" SGOSUBZASA 
SA=SR+MEM,3> 

GOSUEBZ4SE:POKEMEM -A5+1024 ,32 :POKEMKM, 29+539298 ,3 

MEM,gI=ü 

soTo1eaa 

AR$="ES IST GAR KEIN MONSTER ES IST EIN" :GOSUBSASA 

A$="HANDELSREISENDER !1":G0SUBSaSAa 

GOSLB 2844 

soTalsaa 

A$="DAS MONSTER BEURCHT 3" :G0SUBFASGa 
IFM£M,3>=933THEHA$S=MEEM,1) :GOSUBZASA RETURN 

IFM£M,3>>3THEN2SIG 

ARS=M$EM,1>+" CKRAMPFSTRERKE :"+5STR$EMEM, 33 +") " :GOSUBZARE:RETURN 
IFM$£M,1D="VORRRETE" THENHA$=STR$EMCM,33>+" YVORRRETE" :GOSUBFASESRETURN 
A$=M$LM,1) :GOSUBFABEHAF="WERT 2" +STR$ELMCM,355+" GOLDSTUECKE" :GOSUBZABAGRETU 


A$=MEFLM, 1) :GOSUBSFASA:RAF="DAMIT KANNST DU ERKEHNEH"SGOSUBZASE 
A$="WELCHEN SCHATZ EIN MÜNSTER BEWUACHT ," :GOSUBZESBA 

R$="ÜHNE MIT IHM ZU KREMPFEHN !1" sHE=1:G0SUBIASA:GO0TO24BA 
A$=M$CM,a) :GOSUBIASA 

Y=INTEZOHRNDE19+3>5 2R=INTE3TERNDEII+H2I 


IF#>3@THENPOKEY+16,1:BB=1:G0T02708 

IFX<3ATHENPOKEY+16,0:BB=2:G0T02700 

GoTu 2558 

GOTO248a 

IF Z=1145THEN2S30 

A$="DU BIST AM ZIEL !!":GOsußzasa 

IF SASATHENA$="ABER TILGE ERST MAL DEINE SCHULDEN 1" :GOSUBFASE HRETURH 
R$="DL HAST GEWONNEN 11" :GOSUBFaSA 

A$="DU BRACHTEST"+STRELSA>+" GOLDMUENZEH MIT" :GOSUBFABE 
IFSAC=RETHENZFIR 

A$s="DAMIT HAST DU DEH REKORD GEBROCHEN !1" :GOSUBFESE 

A$="ALTER REKORDE" +STRELREI+" GÖOLDMUENZER" :GÜOSLUBFASAGRE=SA:GOTOZSOR 
A$="DER REKORD LIEGT BEI"+STR$SLREI+" GOLDMLIENZEH" :GOSUBFASE 

A&="HOCH EIN SPIEL %T-H> 77" :GOSUBFF1A:GOSUBFIER:GOSLUEFFTZA 

IF A$="N"THENAF="TSCHUESS 11": GOSUBFASA: SYS 584738 

A$="FREUT MICH !":GOSUBZASA:GOTOIIHA 

A$="DU BIST ZU DEINER BURG ZURLIECKGEKEHRT" :GOSURFASEA 

A$="DU KANNST YORRRETE KAUFEN UND YERKAUFEH' 
PR=INTLS#RHOE1D+3> 


A$="DER PREIS LIEGT BEI"+STRELPR>+" GOLDMLUENZEH" GO zasa 
A$="MOECHTEST DU X T-N5 77":G0OSUB3310:GOSLURF4EA:GOSUEFTZERAA=E 


IF A&="N"THEN RETURN 
A$="AHZAHL s: "+STRELAR>GSGOSUBTEIE 
A=PEERLISBZE) 

IF£R AHOL>=RATHENHRR=SAR+L : 
IF£ER AHD2Z>=ETHEHAR=SAR-I1 
IFER AHOLS>=ATHENGOSUBZ 


zasa 
zage 
zasa 
sasıa 
Sara 
sase 
zasa 
aaa 
T 
sı1a 
sıi2a 
s138a 
148 
sı5a 
Ssısa 
sıra 
sı8a 
3198 
zn 
s21a 
s22a 
22a 
3240 
3250 
2684 
3270 
s28A 
3230 
aaa 
3310 
a320 
3320 
a4 


Sun 


Ssaamm 


 GOTIES30a 


IF SRCATHENZK=A:GOTO 2370 

Zr=3A 

IFZ&-AR#PRZATHENAF="DL HAST ZUWENIG GELD 11" :GOSUBZASEHGOTOPEFA 

IF R+ARSETHEHRF="SOYIEL YVORRAETE HAST DU NICHT" GGOSUBSARA:GOTOZESA 
SA=SA-AR#PR :R=R+AR 

A$="Ok. ":GOSUBFARA RETURN 

FORI=1TOLENLA$) 


Ren+ö4 

POKELFS4+I.A 

NEXT :RETURH 
POKE1333,1680:POKE1934 , 150 :POKE1335,15A:RETURH 


GOSUB 32312: G0SUB33IR:GOSLUBFT7ZU:RETURN 
POKEYW+32,8:PRINT"J" :D1 D2=12:POKEY+17,XLPEEKKY+1T7DRNDE! 
FORI=ETO23:POKE1GS4+ 1.84 :POKE1A54+5+1,15:POKE1344+1 ,85: POKES+1344+ 1, 1S:NEX 


FORP=1144T012854 STEPSA 

zZU=A:FORI=1T037 

IFZUFOTHEN31SA 

IFZU=@THEHZU=-1:G0OTO31S0 

ZU=INT£EDI#RHOKLTI>+Z2D 

POEKEP+I 87 ;POKEP+S+1,15 

ZU=ZU-1 

NEXTI 

NE#TP 

zu=1 

FORP=11A4T01904 STEPSA 

FORI=2T037 

IFZULFOTHEN3ZSA 

ZU=INTEDZ#RNOL1D+2) 

POFEP+1,55:PÜKEP+S+1,15 

ZU=ZU-1 

NEXTI 

NEXTP 

FORU=1124TO19G4STEP 4a 

POKEU,63 :POKEU+3,15:POKEL+33,88 :POKEL+S+33,, 1S:NEXT :RETURN 

POKES+3,3:POKES+S ‚2 

FORI=1TOLENTAS> 

R=ASCKMIDERAF, 1,15) 

IFR<IS4THENHA=A+128 :G0TO2260 

A=A+sd4 

POKE1334+1,R 

POKES+1 ,I#8 :POKES+4 .23s FOR T=1 TO2A NEXT sPOKES+4 ,A 

NE#T RETURN 

A=PEEKLSS32U) 

IFERANDISP=ETHENRETURN 

IFERANDID=SETHENRETURHN 

IFERAHD GTHEHRETURH 

IFERAND4>=ATHEHRETURN 

IFEARANOS>=ATHENRETURN 

GSOTIZZIA 

GET A£:IFA$=" T"ORAF="H"THEHRETURH 

GSoTaz4sa 

PRINT " 

PRINT'SERPÜRFRETE 2" HF 

FRINT'IERRRRREERERBRBIGELLD:" 5A 

PRINT a ANMPRST. 2" > Kl 

FRETUFRH 

PRINT EB am Fr 

PRIHT ER Be De IBERARI' SA 

PRETEHT "" SEJ HH Pe De pe Fi A Ki NaBl'E 
-=ETHEH 


353a 
23530 
a5a0 
a51a 
3522 
3530 
a54a 
3550 
25a 
2870 
2530 
3830 
araa 
arıa 
372 

ar3a 
araa 
arsa 
ara 
arra 
araQ 
araa 
z3saa 
a81a 
820 
383A 
2348 
385A 
38650 
a870 
3384 
3890 
3900 
a91a 
3920 
3930 
3940 
3950 
39650 
a9ra 
3980 
a99a 
yaaıı 
yaia 
4a2a 
4020 
4aga 
4058 
yasa 
gara 
yasa 
4asa 
41aa 
4110 
aıza 
4130 
4140 
4150 
4ısa 
41ra 
4130 
4130 
42an 
421m 
4220 


RETURN 

POKEY+21..@:PRINT" 8" :POKEY+33,5:POKEY+32,5 
PRINT" BIERBITHNEN SIND DIE YWORRRETE RUSGEGERNGEN. 
PRINT"BBREIE SIND VERHUNGERT II" 
PRIHT"BERBHÜCH EIH SPIEL ?7" 

GOSUBI4SA:IF A$="N"THENSYSSITIS 

soTo1ls4E 

POKEY+21 0: POKEY+33,5:POKEV+33,5:PRINT" I" 
PRINT"BBERBISIE SIND AN IHREN VERLETZUNGEN" 
PRIHT"IBBIIH KAMPF MIT DEN MÜNSTER GESTÜRBEN." 
PRINT"EBRBNÜCH EIN SPIEL ??" 

GasuB34sa: IF A$="N"THENSYSS4T3IS 

soTa1T4E 

FORI=38255T055295 ;POKEI, 15:NE&T 

FORI=1384 T02023:POKEI,180:NEXT RETURN 
POKE1105,.R:POKE1106,R:POKE1107,R 
POKE1145,R:POKE1146,59:POKE1147,R 
POKE1185,R:POKE1185,R:POKE11S7,R 
POKE1852,R:POKE1S81,A:POKEISS2,A 
POKE1FAR,R:POKE1901 ,59::POKE1PA2,R 
POKE1F42,R:PÜKE1941 ,R:POKE1942,R 

RETURN 

G=14330 

FOR I=1T02 :6=6+8 

FORI=AT07 :READA :POKEG+I ,R:PÜKEG+I+1924 „255-R :NEKT 
NEST 
DATA 153,1593,2 
DATA 1285,153,1 
RETURN 
POKE1145,59:POKE1901 ,83:POKE1145+5,13:POKE1FM1+5,10 
A=2:GUSUB3I73A:FORI=S1TOIS 

J=INT£FZOHRNDK 1 +40) 

IFPEER« I+1024)>32THEN3S30 

M£EI,@>=T:POKEI+1024 ,FAsPOKEI+3I298,9 

NEXT :A=32 :GOSUB373 RETURN 

FORI=1TO33STEP3 :RERDFR:=MEI-1>=FR:MEI+1,13=FR:sMEI+2,1>=FRA:NERT 
DATR@,1,2,4,5,7,8,19,13,14,15 

M£34,19=9:M635,19=0:Mi365,1>=0 

FORI=1TO3SSTEP3 

REROF$ :M$LI,a>=F$ :M$C I+1 „a5=F$ Ms I+2,a)=F$ 

RERDF :M&I,2>=F :M£ IH1 ,23=F:K Ir2,2>=F 

RERDM$CIT 15 :RERDMESI+1,1> :RERDMSEI+Z,1D> 
RERDM£I,35 :RERDME I+1,.3> :RERDMEI+2,35 

NEST :RETURN 

DATR"EINE GRÜSSE SCHUARZE PESTRATTE",S 

DATRYORRRETE ‚YORRRETE „VÜRRRETE 

DATR3,10,11 i 

DATR"EINE TÜLLMUETIGE SPITZMAUS" 4 

DATRYORRRETE ‚VORRRETE „YORRRETE 

DATA 5,8,7 

DATR"EIHN RIESIGER SCHLEIMIGER GIFTBANDHURM" „5 

DATAYORRRETE VÜRRRETE."EIN ZRUBERDOLCH" 

DATR 13,14,1 

DATR"EIN HEULENDER WERMÜLF" 7 

DATR"EIN ZAUBERSCHWERT" „"EIH DREMONENPRNZER" "EINE TROLL KEULE" 
DATR 3,2.1 

DATR"EIN GIFTGRUENER SCHLEIMSCHLEICHER" „8 

DATR"EIN GOLDBECHER" "EIN MAGISCHES SCHILD" „YVORRRETE 

DATA 159,2,17 

DATR "EIH KNOCHERBÜHRENDER MONSTERHURM" „3 

DATR"EIN MAGISCHER SPEER" "EIN KLEIMER DIAMANTENRING" „VORRRETE 
DaTR 2, zaa,2u 

DATA "EIN MUTIERTER RIESENTROLL",.11 

DATR "EINE SILBER SCHALE" "EIN GROSSER GOLDRING" "EIN KLEINER RUBIN" 
DATA San, 352,250 


55,126,1265,102,102,102 
53,255,135,1293,153,126 


onputer, 
eo © Re M © D © Ne 64 ei 
zur oc 


42a 
4240 
4250 
4250 
4ara 
4280 
4238 
43aa 
4310 
4320 
4330 
4340 
4350 
4384 
4370 
4330 
4334 
aaa 
44a 
4420 
4430 
4440 
4450 
44sa 
44ra 
4430 
4430 
45ac 
4510 
4524 
4530 
4548 
4550 
4550 
45ra 
45a 
4590 
4sac 
4s1a 


42 


DATA "EIN GRAUSLIEGER SCHWARZER TEUFELSDRACHE" „12 

DATR YVORRRETE, "EINE SILBERKRÜONE" "EINE GOLDKETTE" 

DATA 25,450,400 

DATR"EIN BLEICHES TODESSKELETT",13 

DRATR"WORRRETE" "EIN BRONZE ZEPTER","EIN GROSSER GOLDENER DIAMANTRING" 
DATR 27,50o0,800 

DATR"",@ 

DATA, 

DATR a,.0,0 

DATR"EIN GEMEINER RAFFGEIER",3 

DATR"EINE MAGISCHE HELLSEHENDE GLASSKUGEL" "EIN ZAUBERFERHRÜHR" 
DATR"EINE KLEINE SCHATZTRUHE" 

DATR 333,993, 200 

DATR"DER SATAH PERSOENLICH" „15 

DATR"EIN DIMANTENER KOENIGSTROHN" "EIN KAISERZEPTER AUS PLATIN" 
DATR"GOLDEHE KOENIGSRUESTUNG" 

DATAFAG, Saa, 75a 
Sp=1125:21=1342:PL=5P :MO=1904 :9=32 :50SLB3730:POKE13M1,32:POKE1148,32 
IFPEEK«PL-40)=32THENd44BG 

FE=PL+1 

MI=«KFE-1222540: IFMI=SINTEMIDTHENRETURN 

IFPEEKLFE><SF3IZTHENASSERA 

MI=«FE-10235 748: IFMI-INTEMIDSMATHENHMA=MI-INTEMI> :MS=FE 
PL=FE:G0TO441R 

IFPEEK<PL-1>= S2THENAS2E" 

FE=PL-48 

IFPEEK«FE>=32THENPL=FE :G50TO4470 

GoTag441a 

IFPEEKEPL+4@>=32THENASTE 

IFO=1THENHLP=LP-1: IFLP<=BTHENdERA 

FE=PL-1:IFFE=MOTHENdSAR 

IFPEEKLFE>=3Z2THENPL=FE :G0TO4S1A 

saTas44ra 

IFPEERKPL+1>=32THENA42A 

FE=PL+40 

IFPEERK«FE>=3ZTHENPL=FE :GOTO4SSA 

soTo4s1a 

PL=NM%# :Q=1:LP=INTERHNDE 13#5+5) aO=Ms-1 

POKEPL+1,32:G0T04422 


x 


ACCArAL aan ca 


Spielcasino Baden-Baden, 24.00 Uhr Mitternacht. - Sie sind auf 
dem besten Wege die Bank des Casinos zu sprengen. Auch die 
durchdringenden, fast tödlichen Blicke des Casino-Besitzers lassen 
Sie ganz kalt, denn für Sie steht fest: Mein weiteres Leben findet ab 
morgen auf einer Südseeinsel statt. 


Aber bevor Sie Ihre Gedanken noch | Spielund derCasino-Besitzerwirdwie- | der Bank und die des Spielführers. 
weiter schweifen lassen, zurück zur | der freundlicher zu Ihnen. Es können jeweils zwei Spieler gegen 
Realität, denn die läuft im Moment | ”Baccarat” für den C-64 geschrieben, | die Bank spielen. 

noch am Spieltisch ab. Nureine kleine | simuliert das gleichnamige Karten- 

Unachtsamkeit, ein kleines bißchen | spiel. Viel Glück! 

weniger Glück als beim letzten | Der Computer übernimmt die Rolle 


18 REM BACCARAT C/64 

20 DIMNKS 125) :KAC23=1INTERNDE 1) 59) 104399 :KAC 3) = INT RNDC 13300908 ) +80099:5SP=1 
38 GOSUB2318 

48 POKES3281,5:PRINT".":G0SUB2979:G60SUB259 

52 GOSUB1738:G60SUB1459:G0T0 1598 

68 REM KARTENWAHL 

78 AF=INTERNDE 1)%x4) 

88 AK=INTERNDE 1IK13I #1 

938 REM NUMMER DER KARTE 

188 RZ=RZ +1 

118 NKERZI=C 13KAFI HAK 

128 REM KARTENKONTROLLE 

138 FORI1=1TOCRZ-1) 

148 IFNKC II=NKERZIORNKCRZI=NKE II + LBBTHENNKC RZ I>=NKCRZI+19O 
158 NEXTI 

168 IFNKCRZ) 2ZBRTHENSS®O 

178 IFNK< RZ) >1LBBTHENNK< RZ I=NKERZI-190 

188 REM AUSDRUCK DER KARTEN 

1998 GOSUBS99:GOSUB1939:G0OSUB1148 

289 PRINTKVYSC 1) 

218 GOSUB1969:G0SUB19@39:G0SUB1149:GOSUB1199 

228 PRINTFS$(AF) 

238 GOSUB1969:G0SUB1149:G0SUB 1199:G0SUB 18390:G0SUB499:GOSUB71® 
2408 GOTO6S5® 

258 REM FARBEN 

260 F&O)=-"GEr +IEEEEEEII +MCILIIIIEEE" 

279 F$1)="OEP VIMEEELEBI® VECLIIIIEEE" 

282 FX2)=-"% +iNHEELEIII 4[LIIIIEmE" 

230 F%3)=-'"Be VIRHHEBMELE> SCIOIITIBE 

308 KREE)I="M— HEBEN >| RNBRRRR = ERBE" 


318 KR& 39="| tal EEBHRRI >| ERNHERE SH EERER —— " 
328 KRSC1)=KRECZIH+KRE3) 


339 KVEEI)="r nn EBENEN | MERRRME  EEREBEE- ———— ERBE" 
s49 KYE3)="] MEERE I BERREME “ ——— IEKLIIIIIT)" 

358 KYSCLISKVECEIHKVECH) 

369 LOKEI=" MIBBBBEI MBNBREI EEEEBREL 

279 LO&K3)="i ZUBHHRRI nsRanı BEmARL a 


389 LOS 1)=LOSK2)+LOR 3) 

3938 PETURN 

428 REM BILDER 

4128 IFAK=1THENPRINT"BRSERR= " 
420 IFAK=ZTHENPR INT" ERPBRBEDP " 
IFAK=3THENPR INT" BPBEEBIN3 " 


448 IFAK=4THENPR INT" RK BIRBIEH " 
459 IFAK=STHENPR INT" RS EIBIEISS " 
4628 IFRK=ETHENPRINT"EBERRERE " 
478 IFAK=7THENPR INT " ET? ERpIeg? " 
432 IFAK=STHENPR INT" RB BIREDIS " 
4928 IFAK=STHENPR INT " RS Eppp3 " 
522 IFAK=18THENPRINT'"EIONIIO" 
518 IFAK=11THENPRINT"ERPEEBBE " 
528 IFAK=12THENPR INT" EEDERBEN " 
539 IFAK=13THENPR INT" EEK ERBBK " 
5428 RETURN 
558 REM 3-FACHE KARTE 
568 NKERZI=NKCRZI-2008 
578 RZ=RZ-1 
588 GOTOSA 
538 REM KARTENPOSITION 
E08 IFSP=2THENPR INT "Ein" > 
618 IFSP=1THENPR INT " ERisiepisiupepeingupsiupepgeg " > 
628 IFRZ<ZANDRZ >3THENRETURN 
638 GOSUB1968 
6408 RETURN 
658 REM AUFDECKEN KARTEN (SPC 19) 
668 IFSF=2THENIQQ 
672 IFSP=3THENI 198 
638 IFRZ >1THEN??O 
E98 GETAS: IFA="" THENEO 
788 GOTOSI2 
7ı@ REM WERT DER KARTEN 
728 IFAK>SITHENAK=O 
738 REM PUNKTE DER SPIELER 
748 PUL SPI=PUCSP)I+AK 
758 IFPUC SP) >STHENPU< SP)=PUCSP)-18 
768 RETURN 
778 REM DRITTE KARTE? 
788 IFRZ=3THENS48 
798 GETAS$: IFA$="g" THENS2O 
se® IFA$="E"THENS4O 
812 GOTO7SO 
822 PRINT" MDDMDDDDPEDEIEDEIE" : PRINTTAB< 143 "D"KRSC 1) 
839 GOTOSSIA 
848 REM SPIELERWECHSEL 
858 IFPUCSP)=QOTHENI1259 
869 SP=SP+1 
878 IFSP=ZTHEN1998 
8838 IFSP=3THENI19® 
838 IFSP=4THEN1298 
388 FOR1=1T01375:NEXTI 
919 ZR=ZR+1 
9328 IFZR=3THENISO 
238 IFZR=4THENS48 
348 GOTO62 
‚9598 82=3:X1=RNDt 1): IFX1>=.7THENK2=SK2+1 
968 IFPUCZI>S2THENSAB 
378 PRINT" BIER" :PRINTTABC 143 "D"KRE$C 1) 
3398 FORI=1T01575:NEXTI 
992 GOTOSD 
1288 ZR=1 
1818 FORI1=1T0675:NEXTI 
1928 GOTOS® 


1838 IFZR=2THENPRINT"ERBBRRBRBI” ; :REM 7xCRSR/RECHTS 

19848 IFZR=3THENPRINT "ERBRRRRPRRRBRBI' ::REM 14xCRSR/RECHTS 
19858 RETURN 

1868 IFRZ=ZTHENPRINT"ERBRRBBI" ; :REM 7*CRSR/RECHTS 

19878 IFSP=2ZTHEN1998 

1882 IFRZ=3THENPR INT" ERBRRRPRPRRREBI" ; :REM 14*CRSR/RECHTS 
18938 RETURN 

11988 BA=BA+1:ZR=9:FORI=1T01575:NEXTI 

1118 IFBA=4THENS4® 
1128 IFBA=3THENI2IO 
1138 GOTOS® 

1149 IFBA=1THENPRINT" 
1158 IFBA=2ZTHENPRINT" 
1169 IFBA=3THENPRINT" 
1178 REM 324CRSR/RECHTS 

1188 RETURN 

1198 IFBA=10RBA=ZORBA=3THENPRINT"E"; 
1288 RETURN 

1218 IFPUC3)<SPUC 1IORPUCSI<CPUCZITHENI2E3Q 
1228 GOTO848 

1239 PRINT"B"TABC32)"E 
1248 FORI1=1T02775:NEXT1:G0OT0S2 

12592 PRINT 'EERRPDIIERPIEIIBAC! -DAS SPIEL IST UNGUELTIG !"” 

1268 SP=1:PUC 1)=9:PUC2)=9:PUl 3)=0:RZ=9:ZR=B:BA=® 

1278 FOR1=1T04459:NEXTI 

1288 GOTOS® 

1299 PRINT"IISUSPIELER 2 :"7PUC2)"PUNKTE" 

1388 PRINT” 72) BSP IELER "zNA$" :">PUC 13 "PUNKTES" 
1318 PRINT" EIER" :PRINTTAB( 39) " EZB HER ERENKEIK EBE: ERE ERBE" :PU<C 32; 

1328 PRINT’ ZEMmE SEP EREJNDSNKEK KRETME " :G0OSUB13S0:FORI=1TO1ABAD:NEXTI 

1339 GOSUB1818 

1348 IFKAC 3) =8THEN2178 

1359 IFKAC 1)=BTHEN2819 

1368 SP=1:PUC 1)=8:PUC 2)=98:PUC 3)=9:RZ=B:ZR=9:BA=2: IFKAC 2) =BTHEN1868 
1378 GOTO4® 

1388 REM GEWONNEN/VERLOREN AUSDRUCK 

1398 PRINT" Sppeiepeppeiug" ; = IFPUCSI<PUCZIORPUC 3I<PUC II THEN14 19 

1488 PRINT"MA DIE BANK GEWINNT !":RETURN 


1419 IFPUC2)>PUCSI>THENPRINT"A GEWONNEN !":GOT01438 
1428 PRINT" VERLOREN !" 

1438 IFPUS 13 >PUCSITHENPRINT"MM GEWONNEN !":RETURN 
14498 PRINT"M4 VERLOREN !":RETURN 


1458 REM DARSTELLUNG DES MISCHENS 

1468 FORI1=1T018 

1478 PRINT"EIEBR" :PRINTTAB( 32>KRSC 1) 

14808 PRINT" EBD = PRINTTABC 32IKRSC 1) 
1498 FORE=1T075 

15908 NEXTE 

1512 PRINT"’EIEE":PRINTTABI 32)LO8< 1) 

1528 PRINT " SB" =: PRINTTABT 32)LOS 1) 
1539 PRINT" Eepgeppepıpg" : PRINTTAB(C 3ZIKRS&C 1) 

1548 FORU=1T075 

1558 NEXTU 

15629 PRINT" SEPP" : PRINTTAB< 3Z)LO&C 1) 

1578 NEXTI 

1588 RETURN 

1598 REM AUSTEILEN DER ERSTEN 6 KARTEN . 

1688 PRINT" EBIEE" ; :PRINTKR&( 1) 

1619 FORI=1TO15S@:NEXTI 


Hi"; :REM S24CRSR/RECHTS 
"z:REM 324C 


-«/R. 


n. 
B 


PRINT " IDEE" > =: PRINTKREC 1) 
FORI=1TO159:NEXTI 

PRINT" BI" :PRINTTABC 73 "D"KR& 1) 

FORI=1TO1S59:NEXTI 

PRINT""TABS 7) " BD" KRSC 1 > 
FORI=1TO159:NEXTI 

PRINT"3" :PRINTTAB< 32) "D"KR$C 1) 

FORI=1TO159:NEXTI 

PRINT " RIED" : PRINTTAB« 32) "D"KRS 1) 
FORI=1TO159:NEXTI 

G0T06858 

REM BILDSCHIRM 

POKES3289 ,5:POKES3281 ,5:PRINT"J" 
FORI=1T028:PRINT" 

PRINT" 

POKE2923 ‚,224:POKESS295,5 

POKES3281 ,1 

FORI=1T01225:NEXTI 

RETURN 

REM GEWINN/VERLUST 
FORI=1TO2:KAC II=KAC II-EIC TI :KACZI=KACBI+EICI) 
IFPUC 13 >PUC 3) THENKAC II=KAC II+2XEIC II EKACBI=SKAC3)-2HEIC I) 
NEXTI 

RETURN 

REM SPIELER 2 IST PLEITE 

POKES3289 ,5:POKES3281,5 

PRINT"ÜEBIIHR MITSPIELER VERLAESST DEPRIMIERT DAS" 
PRINT"BERSINO.ER HAT DAS GANZES VERMOEGEN VER-" 
PRINT"BSPIELT .EIN ANDERER CASINO-BESUCHER IST BBEREIT ‚MITZUSPIELEN ." 
KAC2)=INTCCRNDC 1) 15000) /20+100) 

PRINT"BER WILL MIT"KAC2)"$ INS SPIEL EINSTEIGEN.” 
INPUT"BINEHMEN SIE SEIN ANGEBOT AN "zA$ 
IFA$=" JA" THEN4O 

IFA$= "NEIN" THEN197® 

PRINT"CIID":G0T01938 

PRINT"IBBBIALLEINE KOENNEN SIE NUN MAL NICHT WEI- MTERSPIELEN .SOMIT WERDEN 


PRINT" SIE WEGEN IH-":PRINT"MRES EGOISMUS AUS DEM CASINO GEWORFEN !" 
FORI1=1T020899:NEXT:FORI=1T0158:PRINT:NEXT:PRINT"EKJ" :POKES3289 ,14 
POKES3281,8:END 

REM BANKROTT 

POKES3281 ,5:POKES3289,5:PRINT"IMBBISIE SIND PLEITE !ı" 
FOR1=1T049:PRINTTAB< S>"PLEITE !!":FORE=1T075:NEXTE:NEXTI 
FORI1=1T028908:NEXTI 

PRINT"IEBBSIE WERDEN GEZWUNGEN ‚DAS CASINO ZU BVERLASSEN 11 I pp" 
GOT013938 

REM EINSAETZE 

EIC2)I=C INTERNDE 1IRSIKCKACDIZ/EB)I+IB:EIC2I=INTKEICEI) 

IFEIC 2) >KACZITHENEICZI=KACE) 

PRINT"ISBDAS VERMOEGEN IHRES GEGENSPIELERS BE- BRAEGT"KACBI"S .„" 
PRINT"EDAVON SETZT ER"FEIK2)"$ EIN !" 

PRINT"EMMIHR VERMOEGEN BETRAEGT AUGENBLICKL ICH BWSENAU"KACII"S . 
INPUT"BWIEVIEL WOLLEN SIE NUN DAYON EINSET- BZEN ";EIC1D 
EIC1I=INTCEICLIISIFEIC LI >KAC LITHENE IC 1)=KAc 1) 

IFEI<C 13<@THENE IC 1)=8 

FOR1=1T04225:PRINT"\J" RETURN 

REM BANK GESPRENGT 

POKES3281,5:POKES53288 ,5:PRINT "Jam" 

PRINT"SIE HABEN DIE" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINTTRK2EY "SG ESPRENG FERRINTTABEENAFEN I — 


PRINT"BBBIE SIND NUN DER KOENIG DER":PRINTTAB< 21)" BACCARAT-SPIELER !" 
FOR1=1T02588:NEXT 

KAS=SSTRECKACLI-KACAYIH" 5" 

IFKAC 13 -KAC 43% =SBTHENKAS=" GAR NICHTS !" 

PRINT"BWIHR GEWINN :"KA$S:FORI1=1T015998:NEXT:GOTO 193938 

POKES3288 ,5:POKES3281,5 

PRINT " 2upa=t BACCARAT C/64" 

FOR1=1T02089:NEXTI 

PRINT'"WI EIN SPIEL VON *; 

FOR1=1T029988:NEXTI 

PRINT" STEFAN HARSDORF" 

PRINT'M DATTELN/WESTF ." 

PRINT'M 11/1983" 

FOR1=1T03588:NEXTI 

INPUT" IHR NAME ";NAS$ 

PRINT" AUF WIEVIEL DOLLAR ($) BELAEUFT SICH" 

INPUT" IM MOMENT IHR BAR-VERMOEGEN "KA 1I:KACA4>=KAC 1) 

IFKAC 13 >C INT RNDC 132988 ) +4598 ) THENGOSUB24998 

INPUT"wM BENOETIGEN SIE DIE SPIELREGELN "; 

IFA$= "NE IN" THEN2488 

IFAS=" JA"THEN258®O 

PRINT '"OID" :G60T02448 

RETURN 

PRINT"\29 DURCH SOVIEL GELD SIND SIE DEM KAS- M SIERER AUFGEFALLEN .„"” 
PRINT"M ER LAESST IHRE DOLLARSCHEINE UEBER- M PRUEFEN :" 

GA=RNDC 1)-C KA 19712989) :FORI1=1T03998:NEXT: IFGA< =BTHEN2SS® 

PRINT"m9 ES HAT SICH HERAUSGESTELLT ‚DASS ES Mm SICH UM ECHTE SCHEINE";7 
PRINT" HANDELT .":FOR1=1T05998 :NEXT 

RETURN 


PRINT"mI ES HAT SICH HERAUSGESTELLT ‚DASS ES Mm SICH UM FALSCHGELD "> 
PRINT"HANDELT .":PRINT"M DIE POLIZEI IST SCHON INFORMIERT ." x 
GOTO 1999 


REM SPIELREGELN 

PRINT" SPIELREGELN :* 

PRINT"MBESPIELT WIRD MIT 2x 52 BLATT ‚D. H. JE-" 
PRINT"DE KARTE IST ZWEIMAL VORHANDEN .DIE FAR-" 
PRINT"BEN SPIELEN KEINE ROLLE ‚NUR DER KARTEN-" 
PRINT"WERT :AS=1 7ZWEI=2 ;DREI=3 ;VIER=4 >“ 
PRINT"WFUENF=S ;SECHS=6 ;SIEBEN=7 ZACHT=8 ;" 
PRINT"BNEUN=S 7ZEHN, ZBELBE, DERME, KEDENIG=DO ." 
PRINT"BGESPIELT WIRD NUR GEGEN DIE BANK „. JEDER" 
PRINT"ERHAELT ZWEI KARTEN .MIT «@FiEk DECKEN SIE" 
PRINT"IHRE KARTEN <UNTEN/LINKS) AUF. ZIEL IST " 
PRINT"ES ‚MOEGLICHST 9 'AUGEN' MIT ZWEI BZW. " 
PRINT"BDREI KARTEN ZU ERREICHEN . <SSPACER>" 
GETAS: IFAS=""THEN2718 

PRINT"ÜBEI MEHR ALS 9 'AUGEN' WERDEN 18 WIEDER " 
PRINT"ABGEZOGEN .MIT «@FiEk KOENNEN SIE DANN EI-" 
PRINT"NE DRITTE KARTE NEHMEN SONST ı3F3Ek > . . 
PRINT"DANACH DECKT SPIELER 2 SEINE KARTEN <0B-" 
PRINT"EN/LINKS) AUF „ZULETZT WENDET DIE BANK " 
PRINT"IHRE KARTEN CRECHTS> .WER MEHR PUNKTE 
PRINT"ALS DIE BANK HAT,ERHAELT DEN DOPPELTEN 
PRINT"EINSATZ ‚ANSONSTEN VERLIERT MAN IHN AN 
PRINT"DIE BANK „ BEI EINEM 'BAC' „D. H. EIN 
PRINT"SPIELER HAT ® PUNKTE ‚WIRD NOCH MAL GE- 
PRINT"GEBEN .DIE EINSAETZE BLEIBEN BESTEHEN . 
PRINTTABC 153 "IK SSPACEM>" 

GETAS: IFA$=""THEN2848 

GOT02488 


onputer, 
rogranniert 
>} Pi 


aterhaltung 


GOTO_ 1208 
REM TEST 
REM 02.18.1983 MARTIN EBERL 
IF INKEY$= THEN LET J=J+. 


IF J>38 THEN GOTO S2080 
THEN GOTO 208 


098 ’ 
ri HEN Ben so 


A” 

3 THEN N oro Jaı 
=L$+4$ 

T Y,X; us; c“ “ AND LE 


20 
IF L$="" THEN_GOTO 28 
Bares TO LEN L$-1) 
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X (328) 
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Bs=RA 
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ASSABTER 
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Februar 1984 
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GOTO 13548 
(RND=+Z) +1 


87} =InT 
gar =INT 


EN 
Y=INT 


uß T 
T X(I+261=n 


FOrNFin 


SSHRHHSHHSEHHESS 
SPAMSAUNENHNHT-GN 
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4 -Ix#Z) =X(256-I#Z) 
RR SE 
HEN GOTO 2648 

Z+1856) =X(I#+2+154) 


#+Z+157) =X (IsZ+1551 
xX11#+Z+220) =X(IrZ+218) 
xXı221-I1IxsZ) =X(2253-I#Z) +Z 


J=8 TO 1 
xX(19+I#128+J) =INT {RND:» 


X121+I#128+J) =INT (RND=s 


xX123+1#128+J)=(X (19+I# 
(RND#99) +1 28+J) (21+1#1285+J)) X (81) 

2448 LET X(51+I#128+J) =INT {RND: 
99) +281 

2458 LET X(53+I#128+J) =INT {RND: 
234) +301 

2458 LET X1(55+I#128+J) = (X (593+I#2 
28+J) -X1S1+1#+125+J)) 2X (39) 
BEST, xX(83+I#128+J) =INT (RND= 


+1 
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c 


cc 
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c 
KXXXXXKXXXID XUXOXOKDAÄXKUKOND 
8» 


rororerrörozıro 


omom 
[+] 
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LET X(87+I#128+J) =X (83+1I#12 
I #X (85+1#+128+.J) 2X (97) 
© LET X(115+I1#21286+J) =INT {RND 


5 

ERTEN Le} .” 82518 LET _X(117+I1#128+u) =INT {RND 
H WERDE IHNEN 48 A +18) »Z+12 
ELLEN,BEI DENEN 5I 2528 LET X1{119+I1#128>.,J)=X(115+Ie 
E FEHLENDE ‚DURCH E 128+.J) #X(117+I#125+J) X (105) 
ZEICHEN ERSETZTE ZAaH R xT_J 

SOLLEN.“ = xX1275+I) =INT (RND#+299) + 

"SIE HABEN INSGESAHMMT - 

NUTEN ZEIT." xX1279+I) =INT {RND#9) +12 
“ x1277+I) =X1279+T) #598-X { 


xX(387+I) =INT (RND+#899) + 
x(389+I)=INT (RND+899) + 


101 
"DIE UHR AM UNTEREN B B6=S5TR$ X(387+I) +STR8 > 
ZEIGT IHNEN WIEVIEL 
NOCH HABEN." ® LE X(311+I)=® 
J=1 TO 6 
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fr 
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ORMIHPFESOOVANAAPURPSOOD NML 
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cLS 

PRINT "DIE LOESUNG WIRD IMM 
ER EINE ZAHLUON ® BIS 999 SEIN." 
2818 PRINT "HABEN SIE EINE LOESU 
NG,GEBEN SIEDIESE EIN UND DRUECK 
EN DANN AUF DIE TASTE N." 
2828 PRINT "HABEN SIE KEINE LOE® 
UNG „DANN GEBEN SIE NUR A EIN. 


X11+937) =X (I+36) #X 19) -I- 2825 PRINT "BLEIBT IHNEN AM SCHL. 
USS NOCH ETUAS ZEIT,DANN KOEN 
XtI+69) =X (I+68) +Zx# (7-X DIESE, PUFGABEN NOCHN 
XtI+181) =X(I+100) +3+X (zZ 2838 PRINT "WENN SIE DAS ZULETZT 
EINGEGEBENEZEICHEN LOESCHEN WOL 
X (14133) =X (132) +Xt1@) +I LEN ‚DANN DRUECKEN SIE AUF L.' 
2848 PRINT 
XtI+155) =X (164) +X 135) +1 2858 PRINT "DRUECKEN SIE AUF L" 
#I 2868 IF INKEYS<>"L" THEN GOTO 2 
xX1231-I) =X 1232-1) +X (98) so 


x 1263-1) =X 12364 -I) #Z+X (2 u. En 
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PRINT AT 2 N 
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PI-TL IS) 
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PRINT AT 1,9; 
PRINT " 


our 


PRINT 
PRINT 
„PRINT 
PRINT 
6858 PRINT " 575 : (16-LEN Z$ 


NZND<X 


6978 PRINT " ‚LE E (16-LEN Z& 
6888 PRINT 
839 PRINT 
6188 PRINT 
6110 „PRINT 
” 
8128, PRINT 
‚PRINT 
5 PRINT 


PRINT 


omputer, 
P rogranniert 
zur RR 


5938 PRINT 


5948 PRINT " 
69598 PRINT AT 


AND X (I=8-53) 
4; 0" AND 


AUFGRBE 1 


RAGE - 
ZTE ZAHL EINGEBEN 


SIE Een INSGESAN J 
Seat. 5 IMT 5@ MINUTEN 


BLEIBEN Br DESHALB NICHT ZU 


LANGE AN EINER AUF 
MOEGLICHERWEISE NDS EBEN er 


RUFGRBE 2 


NOCH 
DIE VOReRal WIRD IMMER EINE zZ 

VON 8 BIS 999 SEIN 1= za 5 
HABEN SIE EINE LOESUNG ,GEBEN SIE \ 
DIESE EIN UND DRUECKEN DANN RAUF 77 78 8a ss 92 ? 
DIE TASTE A. 
HABEN SIE KEINE LOESUNG, DANN A 
GE N NU: 

BLEIBT IHNEN an SCHLUSS NOCH 
ETWAS ZEIT,DANN KOENNEN SIE 

DIESE AUFGABEN NOCHMALS PRO- 

IE 

DENN SIE DAS ZULETZT EINGEGEBENE 

ZEICHEN LOESCHEN WOLLEN, DANN 

DRÜECKEN SIE AUF L. 


Chopper-Command 


für den TI-99/4A 


Ein Transporter-Treck ist unterwegs, um lebenswichtige Ladung, in 
ein kleines Dorf, in der Wüste Gobi, zu bringen. 


Als Schutz gegen feindliche Kampf- 
geschwader, des in diesem Gebiet an- 
sässigen Mongolenfürsten, werden Sie 
dem Transportunternehmen zugeteilt. 
Mit einem Hubschrauber begleiten Sie 
den Track und müssen ständig vor den 
Angreifern auf der Hut sein. 

Mit der einzigen Schußwaffe an Bord, 


heißt es nun, soviel Treffer wie nur 
möglich zu erzielen, um die Zahl der 
LKW’s, die von den feindlichen Jä- 
gern getroffen wurden und so letzt- 
endlich doch auf der Strecke blieben, 
möglichst gering zu halten. 

Der Hubschrauber wird im Spiel mit 
dem Joystick gesteuert. Die Steuerung 


kann aber nur nach rechts, nach links 
und nach unten erfolgen, also nicht 
nach oben. Eine Tatsache, die das 
ganze Unternehmen noch schwieriger 
werden läßt. 

Möchte man das Spiel über Tastatur 
spielen, sind folgende Zeilen einzu- 
fügen, bzw. zu ändern: 


————— nn ee nn ee ee ee ee 
FALLS DAS SPIEL AUF DEM KEYBOARD GESPIELT WERDEN SOLL, 


SIND FOLGE 


1,K,5):: GOSUB 1999 


NDE ZEILEN EINZUGEBEN bzw ABZURENDERN ! 


1565 ON Kern GOTO 1598, 1648, 1588, 1578, 1599, 1598 


1599 
1648 


CALI 
1688 coro 1598 


52 


ALL MOTION C#1,-3KY.JCK 2. 3KXJCK)) 
ge POSITION C#1,XP,YP) :: 
L_ SOUND? -288,-7,9) 


:: IF K>5_OR K£® THEN K=4 


CALL SPRITEC#19,128, 11: KXP+1,YP+1.0,X+XJCK)) 
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! CHOFPER COMMAND 
R 
! BY T.BISPINK 
fi 


ON ERROR 1560 
CALL SCREEN{Z)I:: CALL CLEAR :: RANDOMIZE :: CALL MAGNIFY (3) 
ı 


ZEICHENDATEN 


34-41 


t 
{} 
' 
ı 


210 DATA 6C5C6C, sCFEFESC6CFEFESC, SCFEDOFCTEIGFESC , CöCE1ESC7BFOESCH, 7OFBDOTSTECEF 
E76, 18182,1818303030301818, 303018181818303 

Bau ? 

230 !42-49 

240 ! 

250 DATA 0000001818,0018187E7E1818,000000000018182, 0000007E7E, 0000000000001818,0 


&0E1ESC7BFOEOT, 7CFECEDEF6E6FETC, 1838787818181818 
260 ! 


279 !50-56 

280 ! 

290 DATA 7CFEOESC78EOFEFE, 7CFEOESCSCOEFE7C, 1CSC7CECFEFEOCOL, FEFECOFCFEOGFETE, 7CF 
ECOFCFEC#FETC, FEFEO60E 1038303, 7CFEC6TCICCAFETC 

300 ! 

s10 157-64 

320! 

330 DATA 7CFEC6FETEO6FETC, 00181800001818, 001818000018182, 061E7LFOFO7L1E06, 007C7C 
00007C7C, EOFO7C1ELETCFOL, 7CFEOS1E1C001818, C6LEFL783030303 

340 ! 

350 ! 65-72 

360! 

370 DATA S87CEEC6FEFECEC, FEFEC6FEFECHFEFE, 7CFECOCOCOCOFETC, FEFECSCSLBESFEFE, FEF 
ECOFBFSCOFEFE,, FEFECOFBFBCOCOCO, 7CFECOCECECHFETT,, C6C5CHFEFECSCHCH 

Ss80 ! 

390 ! 73-80 

400 ! 

410 DATA 1818181818181818, FEFEO6060606FE7C, C6CEDEFBFSDLCECE, COLOLOLOLOCHFEFE , C6E 
EFEFEDSCSC6CH, C6ESESFEDECECECH, 7CFECSCHCHCHFETC , FCFECHFEFCCOCOCO 

420 ! 

430 ! 81-87 

440 | 

450 DATA C6EE7C38387CEEC6 , FCFEC6FEFCDCCECE, 7CFECOFCFEOGFETC, FEFE181818181818, C6C 
SC&CELECHFE7T, C6C6EESCIC3BSBI ‚ LACHCHCHDSFEFESE 

460 ! 

470 ! HUBSCHRAUBER 92-95, 96-99 

480 ! 

490 DATA 000000070040£17F0300000000000000000000FF 207EF iF9FEF8127C000000000, 00000 
ÖFFO47EBFIFTF LFIBZEOOOODOOOOOOOOGEO000287FECO0000000000000 

soo! 

S10 ! LKW 100-103 

20 

530 DATA 000000000000031F2747FFFF7F373810000000000000FFFFFFFFFFFFFFERICOS 

540 ! 

550 ! FLUGZEUGE 104-107,108-111 

560 ! 

570 DATA 0000090000001 FE7FBSF07000000000000000000010306FE0EFBE00000000000, 000000 
0080C0607F701F070000000000000000000000FBE71FFCEO00000000000 

s80 ! 

570 ! STARFIGHTER 112-115, 116-119 

600 ! 

610 DATA 0000000001073FE73F0701000000000000000F3FFBEOFFLOFFEOFBZFOF000000, 0000F0 
FEIFOTFFOSFFO7OFFCFO0000000000000080E0FCE7FLE0800000000000 5 

820 ! 

650 !SCHUSS HUBSCHRAUBER 120-123 

840 ! h 3 

650 DATA 000000000000FF0009FF000000000000000000000000FF0000FF000000000000 

660! 

6709 ! SCHUSS FLUGZEUG 124- 127 

680! 

890 DATA 0000000000000003030000000000000000000000000000L.0C000000000000000 

700! 

710! BOMBE 128-131 

AST 

730 DATA 0000000000007EC37E0000000000000000000000000000000000000000000000 

730 ! 

750 ! EXFLOSION 132-135 

760 ! 

770 DATA S9603C1FOF1F7CISBOBODOE1F1930200040E0E0FBFFTEBSDIBEDESFBBFLFEBEOG 

za0 ! x 

790 ! GEBIRGE 136-140 

800 ! 

810 DATA 60000000050FSFFF , OLOFSFFFFFFFFFFF,, OOLOFOFCFFFFFFFF , 0000000080FOFCFE,FFF 
FFFFFFFFFFFFF 

820 ! 

830 ! HIMMEL 141 

840 ! R 

850 DATA 0000000000000000 

860 ! 

870 ! WUESTE 33 


880 ! 

890 DATA FFFFFFFFFFFFFFFF 

700 ! 

910 ! GEBIRGEPOSITION 

920 ! 

930 

940 

950 

960 

779 .! 

980 ! ZEICHENDEFINITIONEN 

9909. ! 

1000 FOR 1=34 TO 87 :: READ A$ := CALL CHAR(I,A$):: NEXT I 

1010 FOR 1=92 TO 132 STEP 4 :: READ A$ :: CALL CHAR(I,A$):: NEXT I 

1020 FOR I=136 TO 140 :: READ A$ =: CALL CHAR(I,A$):: NEXT I 

1050 READ A$ »: CALL CHAR(141,A$):: READ A$ :: CALL CHAR(33,4$) 

1040 ! > 

1050 ! FARBEN 

1060 ! 

1070 CALL COLOR(1,7,7):: CALL COLOR(14,14,8):: FOR I=2 TO 7 :: CALL COLOR(1,11,7 
Ya3 NEXT T 

1080 ! 

1090 ! BILD 

1100 ! 

1110 CALL HCHAR(1,1,141,224)2: CALL HCHAR(8,1,33,544) 

1120 CALL HCHAR(6,9,140,24):: CALL HCHAR(7,3,140,30):3 CALL HCHAR(5,11,140,4):: 

CALL HEHAR (5,25,140,8):: CALL HCHAR (4,27,140,4) 

1130 FOR I=1 TO 10 :: READ A,B :: CALL HCHAR(A,B,136):: NEXT I 

1140 FOR I=1 TOD 9 :: READ A, CALL HCHAR{A,B,137)2: NEXT I 

1150 FOR I=1 TO 6 :: READ A, CALL HCHAR(A,B,138):: NEXT I 

11580 FÜR I=1 TO 7 v2 READ A CALL HCHARTA,B,159:: NEXT I 

11704! 

1180 ! TITELSCHRIFT 

LEO 

1200 DISPLAY AT(12,8): "CHOPPER COMMAND" :: DISPLAY AT(15,6):"i1 ODER 2 SPIELER ?" 
1210 CALL SPRITE (#4, 100,2,175,176,0,-6,#5,100,2,175,216,0,-6,#6,100, 2,175, 256,0, 
6) 

1220 CALL SPRITE(#1,92,5,40,1,0,8) 

1230 CALL KEY(0,K,5):: IF S=0 OR K>50 OR K£49 THEN 1230 

1240 A=K-48 :: CALL HCHAR(10,1,33,480)2: FOR I=2 TO 7 :: CALL COLOR(1,5,8):: NEX 
T I »2 ECALL CDLORX1,7,8) 

1250 ! 

1260 ! SPIELRUNDE 

1270 ! 

1280 »: IF P>A THEN 1290 ELSE 1300 

1290 »: R=R+1 :: IF R>2 THEN 1440 ELSE 1280 

1300 »: L{1)=0 :: L(2)=0 :: CALL DELSPRITE (ALL) 

1310 FOR I=1 TO 2-R :: CALL SPRITE(#1+1,92,5,1, (I-1)#18+9):: NEXT I 

1320 DISPLAY AT{2,5)+ "SPIELER: "SP :: DISPLAY Arı2, 17) 2USING "#444": T(P)2: DISFL 
AY AT(2,23) 2 "PUNKTE" 

1330 FOR I=4 TO & :: CALL SFRITE(#1,100,2,175,256,0,-6)2: FOR J=1 TO. 400 :: NEXT 
J »2 NEXT I 2 BEL 

1340 CALL SPRITE (#1,92,18,100,128) 

1350 ON INTRND*4) +1 GOTO 1720, 1760, 1840, 1880 

1360 TiPI=TLR)+N zz DISPLAY AT(2,17)SIZE (5) USING "HHBHR":T(P):: GOTD 1350 

1370 TtPJ=T(P)-100 2: DISPLAY AT(2,17)SIZE(S) USING "HHaHH": T(P)zz L(P)=LiP)+1 : 
» IF L(P)=3 THEN 1380 ELSE 1350 

1580 IF T(P) 31997 AND F{P)=0 THEN F(P)=1 ELSE GOTO 1280 

1390 FOR I=1 TO 5 zz DISPLAY AT(2,1):" EQTENDED PLAS" :: CALL SOUND (70, 1300 
„‚O):: FOR J=1 TO 100 :: NEXT J 

1400 DISPLAY AT(2,1)2"" 2: FOR J=1 TO 50 2: NEXT J := NEXT I :: GOTO 1300 

1410 ! 

1420 ! ANZEIGE ENDERGEBNIS 

1430 ! 

1440 CALL HCHAR(2,1,141,32)2: CALL COLOR(1,7,7):: FOR I=2 TO 7 :: CALL COLOR(I,1 
1,7)22 NEXT I 

1450 DISPLAY AT(10,3)2 "SPIELER 1:"5Tt1)5 "PUNKTE" :: IF A=1 THEN 1470 

1460 DISPLAY AT(12,3):"SPIELER 2:"5T (2); "PUNKTE" 

1470 DISPLAY AT(15,5): "NEUES SPIEL?" :: DISPLAY AT(17,3):"1 ODER 2 SPIELER ?" 
1480 FOR J=1 TO 7 :: CALL KEY(0,K,S):3 IF K=49 JR K=50 THEN 1520 


1490 DISPLAY AT(22,10):"GAME OVER" :: NEXT J 

1500 FOR J=1 TO 8 :: CALL KEY(0,K,8):: IF K=49 OR K=50 THEN 152 

1510 DISPLAY AT(22,10):"" 2: NEXT. J ::-SOTD 1480 

1520 F(1),FID,TC1),T(2),P,R=0 :: BOTO 1240 

1530 ! 

1540 ! UNTERPROSRAMM STEUERUNG HUBSCHRAUBER 

1550 | 

1560 CALL KEY{F,K,S)z: GOSUR 1990 :: CALL JOYST(P,XI,YD)zz ON XJ/4+2 GOTO 1580,14 
590, 1570 

1570 CALL PATTERN(#1,92):: X=100 :: GOTD 1590 

1580 CALL PATTERN(#1,96):: X=-100 

1590 CALL MOTION(#1,-3%YJ,3%XJ):: IF K=18 THEN GOSUB 1640 

1600 ON INT(RND*20)+1 GOTO 1560, 1920, 1560, 1560, 1920, 1560, 1800, 1560, 1920, 1560, 135 
0,1560, 1560, 1560, 1800, 1560, 1560, 1560, 1920, 1560 

1610 ! 

1620 ! UNTERPROGRAMM SCHUSS HUBSCHRAUBER 

1630 | 

1640 CALL POSITION{#1,XP,YP):: CALL SPRITE(#10,120,11,XP+1,YP+1,0,X+XD)z: CALL 8 
DUND(-200, -7,0) 

1650 CALL POSITION(#7,XF,YF)z: IF ABSCXP-XF)>S OR(YF-YP)*X<O THEN 1670 :: CALL D 
ELSPRITE (#7,#10):: CALL MOTION(#1,0,0) 

1660 CALL SPRITE(#13,132,11,XF,YF,0,0):: .CALL SDUND(700,-6,0):: FOR J=1 TO 200 : 
» NEXT J :: CALL DELSPRITE(#13):: GOTO 1360 

1670 CALL DELSPRITE (#10) 

1680 RETURN 

1690 ! 

1700 ! BEWEGUNG FLUGZEUG VON RECHTS 

1710 ! : 

1720 N=S0+R#20 :: G=-1 :: CALL DELSFRITE(#7):: CALL SPRITE(#7,104,2,60+INT (BOXRN 
D) ,256,0,-25-8%R):: GOTO 1560 

1730 ! 

1740 ! BEWEGUNG FLUGZEUG VON LINKS 


1750 ! 
1760 N=50+R*20 :: G=1 :: CALL DELSPRITE(#7):: CALL SPRITE(#7,108,2,60+INT (80*RND 


),1,0,25+8#R):: GOTO 1560 

1770 ! 

1780 ! BOMBE FLUGZEUG 

1790 ! 

1800 CALL FOSINION(#7,XF,YF)zz CALL SPRITE(#12,128,2,XF,YF+1,10,20*G):: CALL SO0U 

ND(-50,120,8):: GOTD 1560 

1810 ! 

1820 ! BEWEGUNG STARFIGHTER VON RECHTS 

1830 ! 3 

1840 N=100+R#30 2: G=-1 3: CALL DELSPRITE(#7):: CALL SPRITE(#7,112,2,40+INT (110% 

RND) ‚256,0, -40-10#R):: GOTD 1560 E 

1850 

1860 ! BEWEGUNG STARFIGHTER VON LINKS 

1870 ! 

1880 N=100+R#30 :: G=1 :: CALL DELSPRITE {#7):: CALL SPRITE (#7,116,2,40+INT {110*R 

ND),1,0,40+10*R):: GOTO 1560 

1890 ! 

1900 ! SCHUSS STARFIGHTER 

190m! 

1920 CALL FOSITION(#7,XF,YF)zz CALL MOTION(#11,0,120%G):: CALL SPRITE(#11,124,2, 

XF,YF+1):z CALL SOUND(100,-5,0) 

1930 CALL FOSITION(#1,XP,YP)z2 IF ARSCXP-XF)>S5 OR(YF-YP)*G>O THEN 1950 :: CALL D 

ELSFRITE (#1,#11) 

1940 CALL SPRITE(#13,132,10,XF,YP,0,0)2: CALL SOUND (700,-6,0):: FOR J=1 TO 200 : 

: NEXT J 2: CALL DELSPRITE(#13):: GOTO 1380 

1950 CALL DELSPRITE(#11):: GOTO 1560 

1960 ! 

1770 ! BOMBEN AUF WAGENKOLONNE 

1780 ! 

1990 CALL FOSITION(#12,XB,YE)=:: IF XB<165 THEN RETURN 

2000 FOR I=4 TO 5 :: CALL COINC(#12,#1,22,C{I))s: IF C(T)=-1 THEN 2020 

2010 NEXT I 3: CALL DELSPRITE(#12):: RETURN 

2020 CALL- MOTION(#1,0,0)2: CALL FOSITION(#1,XB,YB)=: CALL SFRITE(#1,100,8,1,1,0, 

O)zz CALL DELSFRITE(#12):: IF YB>250 THEN YB=250 

2030 CALL SPRITE(#13,132,10,175,YE+1,0,0):: CALL SDUND(700,-6,0):: FOR J=1 TO 20 
3: NEXT J 2: CALL DELSFRITE(#13):: GOTO 1370 


onputer, 
Pi“ 
zur RE 


GEB, 


Ze 
ur 4 
y 


für den TI-99/4A 


Für dieses Programm wird das Ext. Basic-Modul und der 
Joystick benötigt. 


Der Bildschirmaufbau besteht aus ei- 
nem Labyrinth aus hartem Gestein, 
durch das Sie sich als kleine gefräßige 
Maus durchbeißen müssen, um die 
Nüsse vertilgen zu können, die auf den 
Wegen im Labyrinth ausliegen. 


Da das Durchbeißen des Gesteins 
natürlich sehr viel Kraft verbraucht, ist 
es von Zeit zu Zeit erforderlich, einen 
Spaten zur Hilfe zunehmen, um weiter- 
graben zu können. 

Der Kreislauf schließt sich damit, daß 


Ihnen ebenfalls eine Spinne auf den 
Versen ist die Sie, in der Rolle als Maus, 
vertilgen will. 

Die Devise lautet also wiedereinmal: 
Fressen oder gefressen werden. 


100 DON BREAK NEXT :: RANDOMIZE :: 


110 ! 

120 ! ZICK ZACK 

130 ! BY C.$TELLING 
140 ! (C) 27.11.1983 
150! 


160 CALL CLEAR :: CALL SCREEN (S):: 


12) 2 "RECHNE" 


170 CALL COLOR(0,16,1):: 


180 ! 
190 ! 
200 ! 


ZEICHENDATAS 


HISC=O 


DISPLAY AT(12, 


FOR CO=2 TO 9 :: CALL COLOR(CO,16,1):: 


210 DATA 0000003030102040, ,0000000000001818, 
220 DATA 3C7E666666557E3C, 183878181818183C, 7E7TEOGTETEAOTETE, TETEOGTETEOGTETE, oc1 


CICHCHETEOCOE 


12)BEEF: "ICH" :: 


DISPLAY AT(14, 


NEXT CO 


250 DATA 7E7ES0OTETEOSTETE, 7ETE6AOTETE66T7ETE, 7ETEOCOC1B183030, SC7EB6A7ETEBATESC, 7E7 


ES67E7EOB7ETE 


240 DATA 0048180000181800, 434, 


250 ! 
260 ! BUCHSTABEN 
2109. \ 


Februar 1984 


57 


280 DATA 7E7E667E7E686656, 707E667C7C667E7C, SETEEOGOKOKOTESE, 7C7E666566667E7C, 7E7 
ESO7ETEAOTETE 
290 DATA 7E7E607C7C606060, SETEAOTETEABTESC, 6666667E7E666666, 1818181818181818, 060 
B0S0666667E3 
500 DATA 566E7C78787C4E6&, SOBDSOBDEOEDTETE, 42567E7Eb6b66666 , B6CHE6F6DECECSL2, 7E7 
Eöbbb66667E7E 
S10 DATA 7C7E567E7C506060, SCIEG6666E667EIF , 7LIEGETETCECHb6E, SETE&OTLSEO6T7ETC, 7E7 
ENSIBSBIBIBIE 
320 DATA 6666656566667ETE, b6666666653C5C 19, CHC6C6C6DSHFEEEC6, 6666301818506666, 81C 
3663018181818 
330 DATA 7ETEOSOC1SI0O7ETE 
340 ! 
350 ! FIGUREN - DATAS 
360 ! 
370 DATA 000103050F07171F0F0717170E01011CO080COAOFOEOESFSFOEOESESDOOO0000 
380 DATA O000000E1F312005060DOBOROROSOFS0000464EFCBBFECOLOEOFOFOFOEOLHBOOO 
390 DATA 0000020402314B47073F47031F23410000004020408CD2EOEOFCE2COFSCAB200 
400 DATA 0000001818000000 
410 ! 
420 ! ERDE WEG 
430 
440 DATA FFFFFFFFFFFFFFFF 
450 
450 ! SFATEN 


470 ! 

430 DATA 0O0000000000103277EFCFCFEFFFEFCON00183370E0C080000000000000000000 
Aar0 

500 | FELSBRÜCKEN 


s1o ! 
520 DATA 00070E0D1B3B777777371717130904030080F0FOFBFLFBFCFEFLFEFEFBFBFOEO 
530 DATA 0000000000000103030100000000000000000000000080.0.080000000000000 
540 ! 

550 ! CHAR - DEFINIERUNG 

560 ! 

570 RESTORE :: FOR A=44 TO 90 :: READ B$ :: CALL CHAR(A,B$):: NEXT A 

580 RESTORE 520 :: READ : CALL CHAR(112,B$) 

570 RESTORE 370 :: READ C$ :: CALL CHAR(128,C%) 

600 RESTORE 380 :: READ D$ :: CALL CHAR(96,D%) 

610 RESTORE 390 :: READ D$ :: CALL CHAR(100,D$) 

620 RESTORE 440 :: READ CALL CHAR (33,6%) 

630 RESTORE 400 :: READ E$ :: CALL CHAR(40,E%) 

640 RESTORE 480 :: READ E$ :: CALL CHAR(104,E$) 

650 RESTORE 530 :: READ F$ :: CALL CHAR(120,F$) 

660 GOSUB 1780 

670 CALL CLEAR 

680 CALL COLOR(1,2,1) 

690 ! 
700°! HAUPTPROGRAMM 
710 ! 

720 ! 

730 ! 

740 K=0 

750 P=0 

760 F=3 

770 T=100 

780 SPEED=10 

790 YIO=RND*20+40 

800 X10=RND*184+40 

B10 ! 

820 CALL SPRITE(#1,128,16,32,120) 

830 CALL SPRITE (#6, 100,4,88, 16) 

840 CALL SPRITE(#3,100,8,89, 104) 

850 CALL SFRITE (#4, 100,14,88, 184) 

860 CALL SFRITE (#5, 96, 10, RND*170+8, RND*232+8) 


ZEICHNEN 


870 
880 
890 
FO 
710 
920 
HCH: 
930 
740 
950 
950 


970! 


980 
970 
1000 
1010 
1020 
1030 
THEN 
1040 
1050 
10850 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1150 
1170 
1180 
1190 
200 
1210 
1220 
1230 
1240 
1250 
1260 
Ei7) 
1279 
1280 
1290 
1300 
1310 
1320 


1360 
370 
4330 
: CALL SOUND (-45,-6,0) 


2390 
1400 
1410 
1420 
1430 
1440 


1450 ! 


CALL SPRITE(#7, 104,8, RND#50+8, RND#+232+8) 

CALL SPRITE(#10,112,12,Y10,X10) 

CALL MAGNIFY(D) 

CALL HCHAR (12,1,33,32) 

CALL HCHAR(13,1,33,32) 

CALL HCHAR (4,14,533,6)2: CALL HCHAR(5,14,33,6):: CALL HCHAR(6,14,33,58):: CALL 
AR(7,14,33,6) 

DISFLAY AT(1,1)2"SCORE =:"5P 2: DISPLAY AT(1,15):2"HISCORE :";HISC 

t 

xX1=120 :: Y1=32 

2=8 :: Y2=88 

ı 

ı JOYST 

ı 

CALL JOYST(2,X,Y) 

T=T-1 

IF P}5000 THEN SPEED=SFEED+.1 :: IF SFEED>40 THEN SPEED=39 

IF %=-4 THEN 1040 ELSE IF X=4 THEN 1060 ELSE IF Y=4 THEN 1080 ELSE IF Y=-4 
1100 ELSE 1450 

! NACH LINES 

x1=X1-8 :: CALL LOCATE (#1,Y1,X1)2: GOTO 1120 

! NACH RECHTS 

x1=X1+8 2: CALL LOCATE (#1,Y1,X1):2: GOTO 1120 

!<NACH OBEN 

Yı1=Y1-8 3: CALL LOCATE (#1, Y1,X1)2: GOTO 1120 

! NACH UNTEN 

Yi=Yil+8 2: CALL LOCATE(#1,Y1,X1)2: GOTO 1120 

IF X1X16 OR X1>240 OR Yi<iö OR Y1>172 THEN 1130 ELSE 1150 

CALL LOCATE (#1,32,120) 
Y1=32 :: X1=120 

CALL GCHAR (Y1/8+1,X1/8+1,2) 
IF Z=32 THEN 1310 

CALL POSITION(#1,Y1,X1) 
CALL COINE (#1,#5,8,272) 
CALL COINC(#1,#7,9, 73) 
IF Z2=-1 THEN 1370 

IF Z3=-1 THEN 1260 
GOTO 1470 

ı 


! SPATEN HOLEN 

L 

CALL SOUND (-300,1000,0):: CALL DELSPRITE(#7):: P=P+10 :: DISPLAY AT(1,7)51Z 
:F 2: CALL SPRITE(#7, 104,8, RND#*152+24, RND*216+32) 

T=100 :: G0TO 1480 

' 

! GRABEN 

r 

IF T<=0 THEN 1650 :: CALL SOUND (-40,-5,5) 

CALL HEHAR(Y1/8+1,%X1/8+1,33,2):: CALL HCHAR(Y1/8+2,X1/8+1,33,2) 
P=F+10 ; 

DISPLAY AT(1,MISIZE(T):P :: GOTO 1480 


! NUSS FRESSEN 
ı 


FOR I=1 TO 8 2: CALL SDUND(10,-7,0)2: FOR I2=1 TO 10 :: NEXT, I2 :: NEXT I: 


CALL DELSPRITE (#5) 

CALL SFRITE (#5,96,10, ((RND*21)+1)*8, ( (RND*30) +1) x*8) 
K=K+10 

P=P+K 

DISPLAY AT(1,75SIZE(7):P 


GOTO 1480 
ı 


14680 ! SFINNE (SFIDER) 


1470 
1480 
1490 
1500 


ı 

Se 

Y3=SGN (Y1-Y2) 

IF X53=-1 THEN 1510 EESE; IF X3=1 THEN 1520 ELSE IF Y3=-1 THEN 1530 ELSE IF Y 


5-1 TNEN 1540 ELSE 1000 


1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 


1640 ! 


1650 
1660 
1670 
1680 
1690 
1700 
1710 


=X2-8 :: GOTO 1550 
X2=X2+8 »: GOTD 1550 
Y2=Y2-8 :: G0TO 1550 
Y2=Y2+8 
CALL LOCATE (#5, Y2,X2) 
CALL COINC(#1,#6,8,B):: IF B=-1 THEN 1650 
CALL MOTION(#3,0,SFEED):: CALL MOTION(#4,0,-SPEED) 
CALL COINC(#1,#3,8,D):: CALL COINC(#1,#4,8,E) 
IF D=-1 THEN 1850 
IF E=-1 THEN 1550 
CALL GCHAR(Y10/8+2,X10/8+1,6):: IF G{>32 THEN 2220 ELSE 1000 
ı 
! MAUS GEFRESSEN 
ı 
FOR 13=550 TO 110 STEP.-10 zz CALL SOUND(-100,13,0):: NEXT IS 
CALL DELSFRITE (ALL) 
DISFLAY AT{4,10)2"ZICK ZACK" 
IF F>HISC THEN 1690 ELSE 1710 
HISC=F =: DISFLAY AT(1,23):3HISC 
DISFLAY AT(6,12)SIZE(7) : "RECORD" 
DISPLAY AT(10,3):"NUR MUT" 22 DISPLAY AT(14,3)2"WOLLEN SIE NOCHMAL" 3: DISP 


LAY AT(16,D:"ZICK ZACK SPIELEN" 


1720 
1730 
1740 
1750 
1760 
1770 
1780 
1799 
1800 
1310 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
19780 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 


er 


DISFLAY AT(20,9):"DRUECKEN SIE : a 
DISPLAY AT(24,3)2"BEGIN ODER BACK - 
CALL KEY(O,K,S):: IF S=0 THEN 1740 

IF K=14 THEN 670 :: IF K=15 THEN 100 ELSE 1740 


' 


TH art 
' SPIEL BEKANNT ? ER Er: 
N DM 
CALL CLEAR a Finn - 
DISPLAY AT(1,10)2"ZICK ZACK" Pa.‘ U % 
DISPLAY AT(12,1):"KENNEN SIE ZICK ZACK" / ; 2? 
ACCEPT AT{12, 23) VALIDATE (UALPHA)SIZE(1)HASKS H £ Su, mr 
IF ASK$="J" THEN RETURN (Sn RT 
IF ASk$="N" THEN 1850 
CALL CLEAR 


DISFLAY AT(1,10)2"ZICK ZACK" 

DISFLAY AT(4,1)2"ZICK ZACK WURDE VON" 

DISFLAY ATi&,15:"CARSTEN STELLING Ani” 

DISFLAY AT(8,1)2"27.11.1983 PROGRAMMIERT." 

DISPLAY AT(12,1)z "ALLE RECHTE VORBEHALTEN. " 

DISFLAY AT(20,1):2"BITTE ENTER. DRUECKEN" 

CALL KEY(O,K,S)z: IF S=0 THEN 1920 :: IF K=13 THEN 1930 ELSE 1920 

CALL CLEAR 

DISFLAY AT(1,10)2"ZICK ZACK" 

DISFLAY AT(4,1):"SIE MUESSEN VERSUCHEN MIT" 

DISFLAY AT(&,1): "IHRER MAUS VOR DER SPINNE" 

DISFLAY AT(8,1):"ZU FLUECHTEN. SIE KOENNEN” 

DISFLAY AT(10,1)2"NUR EINE BESTIMMTE ZEIT ö 

DISFLAY AT(12,1):2"GRABEN OHNE EINEN NEUEN er 

DISFLAY AT(14,1)2"SPATEN GEHOLT ZU HABEN " 

DISPLAY AT{18,1):"SIE KOENNEN ABER DIE " 

DISFLAY AT(18,1):"SPINNE UEBERWAELTIGEN, “ 

DISPLAY AT(20,1):"INDEM SIE IHR EINEN BR 

DISPLAY AT(22,1): "FELSBROCKEN UEBERWERFEN. " 

DISPLAY AT(24,1):2"BITTE ENTER DRUECKEN" 

CALL KEY (0, Ku 9) 2: IF S=0 THEN 2060 :: IF K=13 THEN 2076 ELSE 2060 
fl r 


2080 
2090 
2100 
2110 
2120 
2150 
2140 
2150 
2150 
2170 
2180 


2190 ! 


2200 
2210 
2220 


DISPLAY AT(1,10)2"ZICK ZACK" 

DISPLAY AT(4,1):"DAS GELINGT, INDEM SIE a 
DISPLAY AT(6,1):"DIE STELLE UNTER DEM " 
DISPLAY AT(8,1):"FELSBROCKEN UNTERHOEHLEN. " 
DISPLAY AT(10,1)2"ZU GUTER LETZT KOENNEN ® 
DISPLAY AT(12,1):2"SIE FUNKTE SAMMELN INDEN " 
DISPLAY AT(14,1)2 "SIE DIE ROTEN NUESSE 7 
DISPLAY AT(16,1):" FRESSEN. a 
DISPLAY AT(20,1):"VIEL GLUECK ... Bi: 
DISPLAY AT(24,1):"BITTE BEGIN DRUECKEN ” 
CALL KEY(O,K,S)z: IF S=0 THEN 2180 :: IF K=14 THEN RETURN ELSE 2180 
ı 


! FELSBROCKEN FAELLT 


A 


FOR I6=1 TO 8 :: CALL SOUND(-200,-68,28):: FOR 17=-1 TOD 1 STEP 1 :: CALL LOC 


ATE(#10,Y10,X10+17)2:2 NEXT 17 :: NEXT I6 


2250 
2240 
2250 
22650 
2270 
2280 
2290 
2300 
2310 
2520 
2330 


2340 


2600 
2610 
7 

2620 
2630 
2640 
2650 
2660 
2670 
2690 


OÖ CALL SOUND (-2000, -7,0) 


O CALL SFRITE(#10,112,11,Y10,X10) 


0 CALL DELSFRITE(#10)2: CALL SPRITE(#21,120,11,Y10,X10,-5,0) 


50=170 

Y10=Y10+8 :: X10=X10+0 :: CALL LOCATE(#10,Y10,X10) 
CALL COINC (#10,#6,8, 25) 

CALL COINC (#10,#4,8,26) 

CALL CDINC (#10,#3,8,277) 

IF 25=-1 THEN 2350 

IF Zö=-1 THEN 0) 

IF 77=-1 THEN 2370 

50=50-4 :: CALL SOUND (-300,50,5,50+2,5,50+4,5) 
CALL GCHAR (Y10/8+2,X10/8,278):: IF ZB<>S3 THEN 2330 ELSE 2240 
F=F-1 :: IF F=0 THEN 2340 ELSE 25% 

CALL DELSFRITE(#10)22 Y1O=1 :: X10=1 :: GOTO 1000 
CALL DELSPRITE(#6):: GOTO 2410 

CALL DELSFRITE(#4):: GOTO 2410 

CALL DELSFRITE(#3):: GOTO 2410 


! FELS TRIFFT SPINNE 


P=P+1000 =: DISPLAY AT(1,7)SIZE(T):F 
CALL DELSFRITE (#10) 
YiO=RND#20+40 :: X10=RND#184+40 


CALL HCHAR (Y10/8-1,X10/8-1,32,4) 
CALL HCHAR (Y10/8,X10/8-1,32,4) 
CALL HECHAR (Y10/8+1,X10/8-1,32,4) “iM 


CALL HCHAR(Y10/8+2,X10/8-1,32,4):: GOTO 1000 Fe N 
1 


! FELS TRIFFT ERDE NEU ZEICHNEN 


t 


CALL SOUND (500, -5,0):: CALL SFRITE(#20,120,11,Y10,X10,-5,-5) 


CALL SPRITE (#22, 120,11,Y10,X10,-5,5) 

CALL SFRITE (#23, 120, 11,Y10,%10,0,-5)° 

CALL SPRITE (#24,120,11,Y10,X10,0,5) 

CALL SPRITE (#25,120,11,Y10,X10,5,-5) 

CALL SFRITE(#26,120,11,Y10,X10,5,0) — 

CALL SFRITE (#27, 120,11, Y10,X10,5,5) 

FOR 14=1 TO 150 :: NEXT I4 :: CALL DELSPRITE (#20,#21,#22,#23,#24,#25,#26, #2 


CALL DELSFRITE (#10) 

YiO=RND#20+40 :: X10=RND*184+40 

CALL SFRITE (#10,112,11,Y10,X10) 

CALL HCHAR (Y10/8,X10/8-1,32,4) 

CALL HCHAR (Y10/8+1,X10/9-1,32,4) 

CALL HCHAR(Y10/8+2,%10/8-1,32,4) 

CALL HCHAR (Y10/8+3,X10/8-1,32,4):: GOTO 1000 


ZX-SPECTRUM 


15 GO SUB 99065 

188 REM Spielanfans 
110 GO SUB 3005 

128 LET M 


166 LET % 
178 LET ZAEHLER=1 


238 LET YO=& 
248 DIM D$CS) 
258 PAPER 8: 


266 PRINT 


208 REM Spielschleife 
318 LET YALT=Y: LET B=1 

328 LET E$=INKEYS 

338 IF E: THEN LET MT=0 
249 IF. B$<"a" THEN LET B=-1: 
259 GD SUB 44CODE Bs+250 

268 FOR A=C TO 1 STEP -1: 

378 IF MT>MR THEN LET MT=HR 
338 LET Y=INT CCMXY-BAMTKYT )/ 
#38 LET S=INT (S-CY+YALT 72) 
458 LET T=T+1 

410 LET MR=MR-MT: LET M=M-MT 
428 PRINT INVERSE 1; 
B,22IV;" wis "; 


445 GO SUB AC2,ZAEHLER > 

459 IF S<1176 AND S>69 THEN 
468 PRINT INVERSE 1; 
B,225 43" wis "; 
478 GO TO 390 

642 REM TASTE "B" 

643 LET MT=59: LET C=19 
544 RETURN 

646 REM TASTE 

647 LET MT=18: 

645 RETUFN 

626 REM TASTE "M" 

637 LET MT=288: LET C=14 
625 RETURN 

638 REM TASTE "N" 

#31 LET MT=188: LET Cs12 
632 RETURN 

722 REM TASTE "y" 

?23 LET MT=28: LET C=8 
724 RETURN . 

735 REM TASTE "X 

?21 LET MT=5: LET 0=4 
732 RETURN 
733 REM TASTE 
733 LET MT=2 
749 RETURN 
1599 REM Kreise und Halbkreise 
1919 LET R=50-5 

1920 IF 5>2099 THEN 

1935 PLOT #0, YO+R: 

1649 LET A=USR 23399 

1858 RETURN 

1180 REM Teilkreise 

1118 LET R=50/5 

1120 LET 
1135 LET 
1148 PLOT 
1158 DRAU 8 : 
1165 LET A=USR 

1178 RETUR 

1289 REM Mondbild 

1218 PAPER €: INK 0: CLS 
1228 PRINT AT 98.8; PRPER 1;" 


1238 PRINT INYERSE 1; 


zu 
24 


LET c=2 


I-24ASN CH/R) 


PAPER 7; 


1246 LET Z=4 

1259 RETURN 

1388 REM Sicherheit 

1312 IF 2<4 THEN GD SUB 1298 
1328 RETURN 

1459 REM Elockmannchen 

1418 IF 2<4 THEN GO SUB 1268 


INK 1; BRIGHT 1;"32x9raphik 8";AT 21,0; "32x9raphik 8" 


PAPER 7; 
AT 21,8515" =";AT 21,22;MR; 
438 IF S<AC1,ZAEHLER)> THEN LET 


PAPER 7; 
N AT 21,813" 


INK 1; 
;AT 21,85 13" 3";AT 21,225MR;" Ka" 


c: 


Mondlandung 


für den ZX-Spectrum + 48K 


granniert 


zur 


Nach dem Countdown starten Sie mit Ihrer Raumfähre ”Orion” 


den ersten touristischen Flug zum Mond. 


Da bis jetzt alles gut gelaufen ist und 
weiter keine Störungen auftraten, | fä 
kommt nun doch noch das große Un- | müssen! 
glück! Die Steuerung für die automati- ei 
sche Landung reagiert nicht. Für | len Bremsmanövern. 
Tasten zusä 


keit der Raumfähre. 


GO TD 389 
LET B$=CHR$ (CODE B$+32) 


OUT 254,A: NEXT A 


<M-MTI+G} 


INK 15 BRIGHT 1;AT 0,0;5; 

gg" 
ZREHLER=ZAEHLER+1: GO TO 439 
G0 SUB 1390 


INK 1; BRIGHT 
s";AT 21,22;MR; 


1;AT 8,0,5; 


"Kgn 


CIRCLE %0,YO,R 
DRAN 8,-2#R,PI 


G0 TO 1949 


OR CRAR-C 0-8 340 10-23) 


"SAT 21,05" 
BRIGHT 15AT 8,8555" m ";AT 8,2245" wis " 


Sie, als Verantwortlicher der Raum- 
re, bedeutet dies: Selbst landen zu 


Die untere Tastenreihe Z -M dient al- 
Werden diese 
zlich mit "Caps-Shift" ge- 
drückt, erhöht dies die Geschwindig- 


BD 
zur nterhaltung 


1426 FOR A=123 TO 124+ZAEHLER 

1438 PLOT INK 3;A,93-ZAEHLER 

1445 DRAU IHK 35:8, 2% ZHEHLER-3) 

1459 HEXT A 

1468 RETURN 

15989 REM Mann I 

1518 IF 2<4 THEN GO SUB 1268 

1528 PRINT INK 35AT 18,16;"c"; AT 11,15; "ba" AT 12,16; "e" : REM GRAP 

HIK: "C"BD"E" 

1338 RETUFRH 

1699 REM Mann II 

1618 IF Z<4 THEN GD SUB 1208 

1628 PRINT INK 3;AT 19,153 "Fk"; AT 11,155" 9";AT 12,16; "h" : REM GRAP 

HIK: "FMK" GH" 

16539 RETURN 

1795 REM Mann im Mond 

1718 IF z<4 THEN GO SUB 1266 

1728 PRINT INK 33AT 9,165" 3"; AT 18.15;:"383";AT 11,16; "8" ‚AT 12,16; 

a HU : REM GRAPHIK: "J"3%9= ararhik 

1738 FÜR A=1 TO 58: NEXT A 

1748 RETURH 

1288 REM Winken 

1218 PRINT INK 33AT 9,16;:"4"; AT 18,155 FLASH 13 "6"; FLASH 8; " 

2": FLASH 13"6"; FLASH 8; AT 11,165 "3"; AT 12,18; "i": REM 

5%65=3raphik 

1228 FÜR A=1 TO 58: NEXT A 

1338 RETURN 

1359 REM Krater 

1315 FOR A=1 TO 8 

1328 IF LC1.A%XS THEN GO TO 1998 

1338 IF DSCAI<>"1" THEN LET DE{A)="1": GO TO 1959 

1348 FRINT AT WCRd,KCAD" " 

1959 IF Ce2,A»>8 THEN GO TO 1398 

19659 LET #CAD=INT C16+CC3,ADECC1,ADS) 

1375 LET YERD=INT C11+HCC4,AdKCK 1.AD/5) 

1938 PRINT AT WER», ACAD "Et": REM GRAFHIK: T 

13928 HEXT A 

1335 RETURH 

25668 REM Landung 

2518 IF ABS Y>5 THEN 60 TO 1508 

2925 50 SUB 13659 

283 En FOR A=8 TO -38 STEP -.2: BEEF .82,A: NEXT A 

28468 FRINT IHK 3;AT 19,17; "" 

2850 PRINT AT 19,6; INK 2;"Herzlich willkommen auf dem Mond" 

2068 PLOT 144,72: DRAW 2 

20768 DRAW 31,6: DRAW 8,-23: DRAN -31; 

2838 PRINT AT 6,18: "4xörarhik 8"; OVER 15AT 7.18; PAPER 25" ";AT 8,18; BRIGHT 
1; PAPER 6;" 

22939 R 

2158 RESTÜRE 2168 

2116 FÜR C=1 TO 17 

2126 READb A: READ EB 

2134 BEEP E.A 

2148 HEXT C 

2158 HE#XT D 

2168 DATA 7,.6, 3,.2,11,.4 9,.4,12,.4,11,.43 9.2, Be eh 
1&..4.14,.4 

2176 DATA 12..4,11,.4, 9..4, 11,.2, 7,.2,14,.8 

2158 FRIHT #0; BRIGHT 1;"Weiter mit ırgendeiner Taste |" 

2199 PAUSE 8 

2298 LET F=259-T-1B#AB3 CS )+MR/19 

2218 CLS 

2228 IF P>BC5) THEN GO TO 2508 

2238 PRINT ’"ERGEBNISSE :": FLOT 8,159: DRAW 96,8 

2248 FRINT ’’’" Ihres Das Beste von "LS 

ee PRINT ’’ "Hohe ENGEM "3% TO 5-LEN STR$ 5);5;" m";TAB 26-LEN STR$ BX1 
»BC1d" m" 

nl "Geschwi.:";C" "X TO S-LEN STR$ YDV;" mie";TAB 25-LEN STR$ BC2 
3;BL29;" m/2" 


2278 PRINT "Zeit a Sad "3 TO S-LEN STR$ T3T;" s")TAB 26-LEN STRS BC3>; 


onputer, 
>» T % Pi 
ZX- S = € R zur ee 


BC33;" Ss" 
2228 PRIHT "Treibst. :";c "> TO S-LEN STRS CE5BD-MR));5599-MR;" Ka")TAB 26 
-LEHN STR$ BC45;B(4 3; " 
2238 PRINT *"Punkte :";c" "3 TO S-LEN STRS FS5F;TAB 25-LEN STRE BXSSHELS) 
2368 PRIHT ser ERIGHT 1; "Weiter mit irgendeiner Taste |" 
2318 PAUSE 
2329 GD TO 100 
2588 REM SEA ZEU RR UNG 
2512 LET 


2378 PRINT FLASH Luc EINE NEUE BESTLEISTUNG | RLORS, 
528 PRINT " Hohe :";TAB 19-LEN STRE BELSSECLIE" m" 
559 FRIHT Geschwi. :";TAB 13-LEN STES KESSEL)" mia" 
2558 PRIHT Zeit "3 TAB 13-LEN STRS BEIEC3 I" 3" 
2618 FRIHT Treibst. :"; TAB 19-LEN STR$ Bi4);804);" Kg" 

2628 FRIHT ’" BEnREe '", TAB 13-LEN STRS BC5);EC5> 
26538 PRIHT #8; BRIGHT 1;"Weiter mit irgendeiner Taste |!" 
2648 PAUSE & 

2658 GO TO 188 

2495 REM Eruchlandung 


BORDER & LLE 
2048 BEEF FHD13, 7#RHD-4 
3858 HEZT A 
3868 BÖRDER 2: IHK 8 
3878 PAPER 5: CLS 
3828 PRINT ’’"Ersten Meldungen zufolge soll der neu entstandene Krater, 
nte ";A$;" etwa ";W7/1.55" m" "tief sein |" 
23358 PRIHT ’’"Wir werden diesen furcht losen Raumfahrer nie ver 
2188 PRINT #0; BRIGHT 1;"Weiter mit irgendeiner Taste I!" 
=118 PAUSE 8 
2120 GD TN 108 
SE0R REM Raketenstart 
23818 BORDER &: PAPER 8: IHK 5: CLS 
5925 PLOT 113.8: rien 8,24: DRAW 3, 
2929 RAHDOMIZE USR 23200 
8935 IHYERSE 1: PLOT 127,13: DRAW 1.0: DRAU 2,2: DREAKU -1 ‚3: DRAU 5 
‚-1: INVERSE 98 
2045 PRIHT #8; AT 8,9; "Starten Sie den Countdown mit irgendeiner Taste!" 
30858 PAUSE 9 
5868 FRIHNT #8; AT 9,8;" 
5863 FRIHT #6; FLA 
5878 PRIHT AT 2,56 
5=9raphik 
3438 BEEP 1,1 
2238 PRINT AT } F 3.2655" E2";AT 4,275" S";AT 5,275" ": REM 6,2%5=9raR 
hik 
5188 BEEF 1.4 
5119 PRIHT AT 3 
5128 BEEP 1,7 
2138 FPRIHT AT 2,28; "7 ; Es" SUGAT H,285"2 "HAT 5,285"2 ": REM 3,7, 562=9rap 
hik 
2148 BEEP 1.15 
2158 PRINT AT 2,28; "81"; AT 3 "14" ;AT 4,28: "55" ;AT 5,28; "12": REM 6 1 4 Z=grap 
hik 
2168 EEEP 1.13 
5178 PRINT AT 2,285 "43" ;AT 3,28: "67" ;AT 4,285 "75" AT S2s; "12": 
2=araphik 
3158 BEEP 1,16 
3198 PRINT AT 2,28;" 2";AT 3,28; "65"; AT 4,28; "372" ;AT 28" 1": 
hik 
5209 BEEP 1,13 
s218 PRINT AT 2,28; "E68"; AT 3,285" 6";AT 4,28; "75 ";AT 5,25; "12": REM 67512=9raph 


SH i PAR = IHK 2;AT 9,155"  " 
Br2 ; 3,263 "2555" ;AT 4,27, "555";AT 5,27;:"212": REM 2,6% 


at ZX-SPECTRUM 


BEEP 1.22 
PRINT AT 3,28;"25";AT 4,28; "62" ;AT 5,28;"32": REM 2563=9raphik 
BEEF 1,25 
nl 3,28; "25"5AT 4,285" S";AT 5,285" 2": REM 752=9rarhik 
E „2 
PRINT AT 2,28; "66";AT 3,28; "55";AT 4,28; "SS" ;AT 5,28; "12": REM ACHTU 
zahlen in "'" sind 9raphik zeichen III EEE 
a BEEP 1.21 


PRINT AT 21.8: POKE 236592,208 
PRINT TAB 15; FLASH 15 INK 23 PAPER 45 "11": REM GRAPHIK LL 
FOR A=1 TO 22 
2 BEEP @1.991-R/22 3/7 ,30+A: BEEP £1.001-A/22 3/8, 40+R: BEEP (1.8 
81-A/22 3/3, 35+A 
PRIHT 
5248 NEXT A 

3250 FOR A=1 TO 39: PLOT RND4255,RND#175: NEXT A 

3360 INPUT "Wie heisen Sie bitte ? "; LINE A$ 

2378 IF As="" THEN GO TO 3368 

5239 IF CODE A$>96 THEN LET A$C 1 )=CHR$ (CODE A$-32) 

2338 IF LEN A$>13 THEN PRINT AT 21,8; "Bitte kurzen Sie Ihren Namen !"ı GD TO 83 

20] 

5456 BORDER 1: PAPER 6: INK 8: CLS 

5418 PRINT AT 2,8; "Millkommen an Bord der Orion, Kommander "5AS;" 1" 

2428 FÜR A=1 TO 209: NEXT A 

5438 PRINT ’"Die Orion befindet sich auf dem ersten touristischen Flua zum 
Mond, und Sie, Kommander""A$;" haben die Ehre,"’"diese Landung selbst durchzu- 

fuhren." h 

2448 PRINT #8; BRIGHT 1;"Weiter mit irgendeiner Taste !" 

3458 FAUSE 8 

2468 CLS 

8478 PRINT AT 3,9;"Die Tasten Z bis M dienen Ihnen zur Durchfuhrung des Brems- 

manovers, wobei die Bremswirkungvon links nach rechts ansteiat." 

- PRINT ’"Sollten Sie beschleunigen wollen, so benutzen Sie bitte ’cR 

5 SHIFT’ zusatzlich |!" 

5490 PRINT #9; BRIGHT 1;"Weiter mit irgendeiner Taste |" 

3588 PAUSE 8 

8510 CLS 

8323 PRINT ’"Beachten Sie die Anzeigen! Insbesondere :" 

8532 PRINT '*"Oben links Ihre Entfernung von der Oberflache - 9esluckte Lan- du 

719, wenn die Entfernung zwischen 8 und 5 Metern liest." 

8548 PRINT ’"Üben rechts Ihre Geschwindiskeitauf den Mond zu (+) oder von ihmwes 
-) Die Landuns ist 9esluckt, wenn die Geschwindiskeit 
zwischen -1 und 5 m/s betrast." 

8550 FRIHT "In die Punktwertung 9eht auch die benotisate Zeit und der wer- bra 

uchte Treibstoff ein !" 

FRINT °. FLASH 1; INK 25"Wiel Gluck 1" 

PRINT #8; BRIGHT 1;"Weiter mit irgendeiner Taste !" 

FAUSE 8 

RETURH 

REM Initialisierung 

BORDER 8: PAPER 8: INK 9: ‚BRIGHT 1: CLS 

PRINT AT 198.9; "STOP DAS BAND" 

PRINT #8; PAPER 2; FLASH 1; BRIGHT 15" Heiter mit irgendeiner Taste ! 


LET C=3 

FOR A=1 TD 2 STEP 8 

FOR B=8 TO 6 

LET [C=C+1: IF C=22 THEN LET C=9 

PRINT AT 18,0; OVER 1; PARER"EINDN 

IF INKEY$<(>"" THEN LET B=7: LET A=3 

HEZT B: NEXT A 

PRINT #9;AT 1,8; PAPER 2; FLASH 1; BRIGHT 15" Etwas Geduld bitt 


REM Abstande und Unter- Frosrammadressen 
DIM AC2,135: RESTORE 3999 

FÜR B=1 TO 13 

RERAD AC1,B) 

RERD AC2,B> 

HEAT B 


9128 DATA 1337, 1988, 1176,1188 

9198 DATA 9388. 1308, 458,1498 

92668 DATA 306, 1488, 209, 1494 

9218 DATA 160.1408, 129, 1598 

9228 DATA 68, 1658, 38,1798 

9239 DATA 5.1388, -1,2888 

9245 DATA -39989 3896 

9259 REM Mondkrater 

32598 DIM L(4,8)> 

9278 FÜR A=1 T0 8 

9228 FOR E=1 TO 4 

9236 RERD CCB,A> 

3298 NEXT B 

9318 NEXT A 

7220 DATA 49898, 491, 1, 1 

3338 DATA 1589, 35,-1, 8 

9248 DATA 1886, 191, 1,-1 

9259 DATA 38988. 381,-1,-1 

9366 DATA 1158, 72.5, 1. 8 

3378 DATA 398, 31. 8-1 

9339 DATA 1359, 126,-1, 1 

9339 DATA 1868, 181, 8, 1 

94960 DIM KB): DIM v5) . 

3418 REM Poken des Maschinen- Prosranms 

3428 LET C=8 

3438 FOR A=23399 TO 233657 

9449 READ B rn 

3458 FÜKE AB 

9468 LET C=C+B 

3479 NEXT A 

9438 IF CX>6493 THEN CLS : FLASH 1;"FEHLER IM MASCHINENPROGRANM 1°’ "DIE 
PRUEFSUMME IST "50° "STATT : STOP 

9498 DATA 323, 8, 4 6 TERN 
9599 DATA 126,254, 

9518 DATA 14,255, 22 

9529 DATA 57,283, 3 3 
3529 DATA 43,243, „177,1 
3549 74, 

3559 5, 25, 

95689 24, 

3578 3, 24, 

3338 3, 27, ‚258, 
3539 3, 35. 16,207, 

3699 3,235, 33, 98 

3619 23,153,237, 32,299 

9628 235, 24,191 

3638 REM Selbstdefin. Graphik 

9649 FOR A=1 TO 17 

9659 READ As 

9669 FOR E=8 TO 7 

9678 RERD C 

3638 FÜKE USR As+E,C 

3639 HEAT B 

3798 NEXT A 

9712 DATA "A", BZ 20, 34, 28, ©: 

9728 DATA "0", 34, 3 24, 24, 28, 8: 
9738 DATA "U", 24, 24, 3 24. 24, 28, 9 
3748 DATA "S", 5 & 88, 68, 33, 64: 
9759 DATA "B", B, 8, 8, 8: 
3768 DATA "Cl", 9,136,112,112, 112, 32.,248,248: 

9778 DATA "D",255,255,248,248, 243, 248,248,248: 
788 DATA "E",216,216,216, 9, 8, 8, 8, 8: 
2738 DATA "F", 8, 8, 8, 9 8, 8, 15, 15: 
9258 DATA "G",252,252,252,252, 252.,252,252,252: 
3218 DATA "H",204, 204, 204,294, 8, 8, 9, 9: 
9228 DATA "1",231,221,231,231, 231,231, 8, 9: 
932338 DATA "J", 66. 36, 69,126, 126,126,126, 24: 
9848 DATA "K", 8, 8, 8, 9, a, 9,192,192: 
23359 DATA "L", 51,294, 51,294, 51,204, 51,294: 
9268 DATA "M",132,129,129,129, 43,252,255, 255: 
3378 DATA "T", 9, 9, 66,182, 98,129,129, 8: 
923388 REM Anfangsdaten 

32339 DIM B<S5> 

3980 LET E(5)=-1999 

9218 RETURN 
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Software-Service 


Programme auf Kassette und Diskette 


‚Ab Heft 1/84 möchten wir Ihnen, lieber Leser, 
die Möglichkeit geben, auch die Programme 
aus CPU auf Kassette oder Diskette über 
unseren Softwareversand zu beziehen. 
Nach längeren Überlegungen sind wir der 
Bitte vieler unserer Leser nachgekommen, die 
abgedruckten Programme in GPU, in unseren 
Kassettenservice aufzunehmen, da diese an 
Qualität, Quantität und Ideenreichtum den 
Programmen in Homecomputer keineswegs 
nachstehen. Denn wir wissen sehr gut, daß 
nicht jeder die Zeit und die Geduld hat, alle 
Programme die er gerne hätte, in sein Gerät 
einzutasten. 

Sie können sämtliche Programme ab der 
ersten CPU 9/83 zu den untenstehenden Be- 
dingungen bei uns bestellen. Hierzu genügt 
jeweils die Angabe eines Stichwortes, z.B.: 
"Apple-Disk CPU Nr. 1/84” oder "Sinclair 
Kassette CPU-12/83”. 


Gegen Einsendung eines Schecks oder 
Vorauszahlung auf unser Konto bei der 
Kreissparkasse Eschwege: 

Bankleitzahl 522 500 30 

Konto-Nummer 45 22 934 

senden wir Ihnen die gewünschten Pro- 
gramme schnellstmöglich zu. 


Bestellungen Ausland: 


Nur Vorauskasse, Schein (Kassette 10,-DM, 
Diskette 20,-DM). Keine Schecks oder 
Überweisungen! 


Lieferung noch nicht erhalten? 


Oft passiert es, daß auf der Überweisungs- 
durchschrift weder Name, noch Anschrift, 
noch Art der Bestellung zu erkennen sind. 
Dies verzögert oder macht die Erledigung 
Ihrer Bestellung meistens nicht möglich! 
Schreiben: Sie uns! (Anrufe kosten viel Geld 
uund bringen, weil dann Schriftvergleiche 
nicht möglich sind, kein Ergebnis). . 
Beachten Sie bitte ausserdem: Bei Überwei- 
sung auf unser Konto kann es bis zu 2 
Wochen dauern, bis wir Ihre Bestellung 
vorliegen haben! 


Wenn es bei uns besonders hektisch zugeht, 
kann es schon mal passieren, daß es mit der 
Lieferung etwas länger dauert. Vergessen Sie 
bitte nicht: Der Kassettenservice ist ein 
zusätzlicher Service von uns, der Ihnen, dem 
Leser, Tipparbeiten ersparen soll (Sie kennen 
den Versuch einer anderen Zeitschrift, dieses 
per Lichtgriffel zu ermöglichen). Wir tun unser 
möglichstes. Aber Pannen sind nie ausge- 
schlossen. 

Bitte haben Sie in solchen Fällen Verständnis. 
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Auftrag für Gelegenheitsanzeigen in CPU 


An CPU Name und Adresse _ u _ — aan 
Westring 59c 


Postfach 620 u ee Abo.-Nr. 
3440 Eschwege 


Unterschrift Ich zahle sofort nach Rechnungserhalt Datum 


Unter der Rubrik „Kleinanzei- 
gen“ veröffentlichen wir Ge- Ich wünsche folgenden Text zu veröffentlichen: 


legenheitsanzeigen für Ver- 

köufsangsböte, Kauf und 1 Va ae a Ta Da RN a N TO N NND IT 
Tauschgesuche, Kontaktauf- LIIIII II II II I | I KR Da DD Da a aa Ta 
nahme bzw. Erfahrungsaus- TEE | 


tausch usw. 


| 
Preise für „Kleinanzeigen“: ! 
Private Gelegenheitsanzeige LIIIII I | | | | 
je Druckzeile 5,— DM inkl. 
MwSt. Chiffregebühr je Anzei- u | 


| 
“ge 10,- DM. Va TR N m Pa a A DE KR N 
Gewerbliche Gelegenheitsan- LIIIIII I | 


zeige je Druckzeile 7,— DM inkl. 
MwSt. (dürfen nicht unter Chif- 


fre erscheinen). 


Zutreffendes ankreuzen 
suche Software suche [7] Hardware D Tausch OD Versch. 
biete an [] Software U) Hardware Kontakte Chiffre 


Biete an Software 


Spitzen-Software für den TI-99/4Al! Z. B. 
Kleinbuchstaben 3,- DM 
Haushaltsplanung 4,- DM 
Über 80 Programme lieferbar!! Gegen RP 
Liste mit Progr.!! Bei Stefan Verhaaren, 
Ripshorsterstraße 309, 4300 Essen-11 


...s.u.sss,„.,.,auu 
@ VC 20 SPITZEN-Software VC 20 @ 
@ ROM-Spiele * Action-Spiee @ 
© * Utilities * User-Progamme * @ 
© Ca. 150 Programme, enorm günstig! @ 
® bes. vorteilh. PAKET-Best. @ 
© Text+40-2.-Bildsch. integriert @ 
© Liste anford. 1,30 DM Briefmarken @ 
© UTN-Soft, Krabler 24, 43 Essen 12 @ 
v.eoea„„„o.., 2. 
} 
} 
} 
} 
® 


.esoeseoeeos.—.,.,.<.,.—.<,.— 

64 SPIT software VC 64 @ 

phant. Spiele sehr günstig @ 

* Utilities * User Programme * @ 
Text*Adressen*Lager*Bundesliga @ 
Liste anford. 1,30 Briefmarken @ 
N-Soft, Krabler 24, 43 Essen 12 @ 
.o.essuosa—.;..u.s.u.s.s 


6-64 tolle Programme: Tausch 
oder gegen Selbstkosten. B. Isert, 
Bürgerwehrstr. 30, 7800 Freiburg 


Telefon: 0761/280631 


VC-64 Verkaufe meine gesamte 

Software für 150,- DM, Wert 5.000,- DM 

15 Disketten oder auf Kassette 
Telefon ab 19 Uhr 0208/840811 


VC-64 Verkaufe meine gesamte 

Software für 150,- DM, Wert 10.000,- DM 

15 Disketten oder auf Kassette 
Telefon: 0208/840811 ab 19 Uhr 


Sie suchen preisgünstige Software 
für Ihren TI-99/4A oder CBM 64? 
Ausführliche Info. gegen 1,- DM, Riegert, 
Schlosshofstr. 5, 7324 Rechberghausen 


CBM-64 Tausche und verkaufe Programme 
Auskunft unt. Rufnummer: 0231/486818 


ZX-81 + VC-20: Viele Programme hat 
Andreas Oldenburg, Lange Straße 47, 
2190 Cuxhaven 12, Info anfordern 


Super Ext.-Basic-Spiel für den TI-99/4A1 
TI-CITY-DEFENDER für nur 8,-- DM 
Info bei R. Girschick, Augsburgerstr. 1 1/2 
8870 Günzburg, gegen Rückporto 


Im neuen Jahr sollten Sie sich diesen 
Komfort leisten 
RR sgBhßle rer 
BISHER gab es Grafikerweiterungen, 
Toolkits, Extended Basics und Maschinen- 
sprachemonitore. 

JETZT gibt es GBASIC, die universelle Be- 
triebssystemerweiter. für den VG 20/32K 
Nur DM 99,90 (Kassette) 

Nur DM 119,90 (Diskette) 

Auch 6-64 Besitzer können aufatmen! 
GBASIC 64 mit über 100 Befehlen im 16K- 
ROM-Modul ist jetzt erhältlich. Noch heute 

Gratisinfo GBC20/GBC64 anfordern! 
OMIKRON SOFTWARE 
Erlachstraße 15, 7534 Birkenfeld 2 


KERRRRRRE RER ER EEE E 


T1-99 Software bei Stefan 
Verhaaren, Ripshorsterstraße 309, 
4300 Essen 11. Info mit Programm, 
gegen RP. Z B.: Welkarte 5,- DMI! 
80 Progr. 180,- DM statt 357,- DMI! 


..esaosss. .—.0s... 
® Commodore-64-Sonderaktion: ® 
@ Software-Paket auf Cassette: @® 
© 10 Superspielprogramme (alle @ 
@ 100% Maschinensprache !!!) @ 
© zum Probierpreis: 50,- DM (per NN) @ 
© Postkarte an: J. Johanningmeier, @ 
© Adenauerstraße 6, 6400 Fulda !!!! @ 
® Nur solange Vorrat reicht !!!! @ 

...sa.ssss...—..;.0.ue 


Spectrum-Programme. Kostenlose 
Preisliste bei Friedrich Neuper, 
8473 Pfreimd, Leuchtenbergerstraße 1 


®® © ®Commdır6d40 0 © 

Spitzensoftware Topspiele ® 
Info gegen 80 Pfennig 

H. Sterdt, Catharinenstraße 

® © © 2200 Elmshorn @ @ 


Neue Programme aus England! @ 
Info gegen Freiumschlag von ® 
ADS Software, Waldstraße 50 A, @ 


} 
} 
} 
} 
® Dragon 32 
3} 
} 
L 
® 6057 Dietzenbach 2 ® 


© TI99 @ TI99 @ TI99 @ TI99 @ 


Super-Software in TI-BASIC 
SPIELE: 
Schatzsuche ..............- ‚- DM 
BANDIT ‚- DM 
org. BLACK-JACK ‚ DM 
Snake and Flies .................. 16,- DM 
Surround & Connect . 16,- DM 
Deadly Rooms ...... . 16,- DM 
UFO ‚- DM 
StArs-WAlS nun 12, DM 
TI-MAN....... ‚„ DM 
Black RobOt .ueueenenenenene „DM 
R ‚ DM 
Bee-Boop.. Dee ‚ DM 
Laser-Fight a ‚ DM 
Lander .... Küpkaehe ‚- DM 
Drunter und Drüber ‚ DM 
Tennis ..... . R ‚„ DM 
New-Horse-Race . R ‚ DM 
HILFSPROGRAMME,- DM 
Unterprogramme 1 ............ ‚ DM 
Unterprogramme 2 ‚ DM 
Screen Print......s2r222.2200.0+ ‚DM 
echte! Kleinbuchstaben....... ‚- DM 


Versand gegen Vorauskasse 

oder Nachnahme (zzgl. Porto u. Gebühr) 
Große Liste gegen Freiumschlag! 
R.+E:SOFT. - 02423/4235 (n. 19.00 h) 
Auf dem Kamp 5 - 5163 Langerwehe 


Verschiedenes 


Basic-Kurs VC 20 + VC 64 
Kompakt-Kurs | + II Teil mit Kassette 
zu verkaufen. Information: Rolf Freitag, 
Kneisenaustraße 87, 4600 Dortmund 1 
Telefon: 0231/825826 oder gegen 

80 Pfennig Rückporto 


Biete an Hardware 


VC-64 
65,- DM 
65,- DM 
240,- DM 
160,- DM 


Soft und Hardware für 

Modulbox mit zwei Steckpl. 

Eprom Karte 

Eprombrenner 

Basic 2000 

80 Zeichenkarte nur für 

Monitor in Farbe 

Joystick 40,- DM 

über 200 Programme, Info gegen 

2- DM in Briefmarken von 

Norbert Flesch, Scheideweg 63 G, 
4650 Gelsenkirchen 


295,- DM 


Soft und Hardware für VE 20 
8K Speichererw. m. Sch. 100,- DM 
16K Speichererw. m. Sch. 160,- DM 
64K RAM Karte 240,- DM 
Programmierhilfemodul 60,- DM 
Graphicmodul ohne 3K 60,- DM 
Maschinensprachmodul 60,- DM 
Modulbox 5 Steckpl. 160,- DM 
Modulbox 2 Steckpl 65,- DM 
40/80 Zeichenkarte 230,- DM 
Eprom Karte 50,- DM 
Joystick 40,- DM 
Softwitsch m. Schnell. 100,- DM 
Quick Save 60,- DM 
Basic 2000 160,- DM 
über 200 Programme, Info gegen 
Be DM in Briefmarken von 
Norbert Flesch, Scheideweg 64 G, 
4650 Gelsenkirchen 


VC-20 Sensoren (Licht-, Ton-, Tem- 
peraturs.) 10,- DM, Gr. Pgr.+Liste, 
M. Holzmann, Postfach 401, 4250 Bottrop 


ZX-Spectrum Zubehör. Speichererw. 
16-48K=20DM,DK'tronics,Tastatur=18 
8,-,SheikoshaJP100anschlußf.=750,- 

Floppydisksystem a. Anf. bei A. Budde 
Am Brodhagen 100, 4800 Bielefeld 1 


GP100A DM 678,- 

GP250X DM 870,- 

GP700A DM 1320,- 

DM 0,90 

DM 19,90 

Dil 8 DM 0,15 

Dil 16 DM 0,25 

A. H. Elektonik, Liste gratis 
Kolberger Straße 5 a 


Seikosha 


Euro-Platinen 
Logik-Tester 
IC-Sockel 


2071 Ammersbek 1, Tel.: 040/6052615 


Commodore mit zwei Joyst. und Basic 
Bücher. VB 600,- DM, Michael Feiertag, 
Apfelalle 1,_ 2875 Ganderkesee 2 


0.0090 9©SPETiNee0o®o 


@ERW.a.48K,89DM,a.80K,189DM,pro@ 
@grammierb. Joyst.-Interf..119,50 DM 

@interf.(wie Kempston), 52,50 DM,® 
@Quicksh.Joyst.39,50DM,Comp.Joyst.@ 
@29,50DM,Light Pen, 84,50DM, Prof.@ 
©Tastatur u. Zwöltast,188,50DM,@ 
@info geg. 2,50DM, Preise+P.+NN® 
® Heinz Meyer, Rahserstr. 58, ®@ 


@4060 Viersen 1, Tel: 02162/22964 @ 


@SPECTRUM: Hardwarepläne f. Video, 
®@ Fernsehton, Spectrum u. 80K Erw. für 
® 20,- DM (Schein)+Porto. Software- 
@ Tausch 48K MC-Progr. Brief an P. Wirth, 
® Krahnendonk 22, 4050 Mönchenglad- 
® bach 1, Tel. 02161/666242 ab 18 Uhr 


VE-20+Cass.+Super Erw.+40/80 Zei- 
chen Karte VB450 DM, Tel.:040/5360784 


Verk. V6-20 330,-DM, Datas.150,-DM,16K 
130,-DM, 3K 80,-DM, Kass. A 20,-DM und 
Spielmod. A 50,-DM, Liste anford. bei 
M. Ebert, Neue Straße 20, 8520 Erlangen 


Suche Hardware 


Suche Ex. Basic + Mini Memorie für 
TI-99/4A, Angebote an Helmut Sendker, 
Hamburgerstraße 67, 4600 Dortmund 1 


Verschiedenes 


Drachenflugschule 
Kosten! Prospekt 
Varellweg 16, 


Nordbayern 
anfordern. 
8580 Bayreuth 


TI-Club tauscht, kauft, verkauft 
TI-99/4A Hard- + Software usw. 
H.Kraus, A.J.Str. 12, 7407 Rottenburg/N. 6 


Funktelefone, Anrufbeantworter, US- 
Telefone etc. verk. GTT, Höchbergerstr. 62 
8700 Würzburg, Telefon: 0931/411179 


Suche Software 


Suche für Spectrum + ZX 81 Fans 
in Österreich, sinnvolle Software 
(Kauf bzw. Tausch) Rudolf Womes, 
Dammweg 8, 8952 Marktoberdorf 1 


Tausch 


Tausch: V6-20 Software, Boris Schepker 
Hagenstraße 44, 4200 Oberhausen 11 


Nicht 
vergessen 


Hobbytronic 84 
in Dortmund 


vom 22. - 26. Februar 


CPU 
& 


Homecomputer 


sind dabei 


ROMIK SOFTWARE Zy\ 


 SUPER.NINE | Katalog anfordern (Schutzgebühr 3,- DM) 


FOR IKZX81 


"1..CANYON 
. 2. ASTEROIDS ] 
- 3. ASTROBLASTER AN 
4..DEFENDER K 
5. SQUASH 
6. SCRAMBLE 
7. SKETCH 
8. COSMIC RAIDER 
.. 9. FOUR THOUGHT 


ee 

WILL YOU BE THE 

SUPREME WORLD 
CHAMPION? 


ray real 


STRATEGIE Conmayp| 


ROMIK so 
MOMTWARE A 


n 


ROMK CUBE 


ar o BEA, 
IE din DIMENSION 


WICOSOFT ® Christian Widuch @ Nordstr. 


22 @ 3443 Herleshausen 


AGEN grwünscHT 


nÄNDLERANFR 
OREN GESUucHT, 


sortwarE-AUT 
INFO ANFORDERN 


"FOR THE 
COMMODORE 64. 


SUPERFONT 
4.0 


CASSETTE 
Our new character 
generator lets you re-delinn, 
Sea shape your own character 
sets. Full editing 

facilities and 
documentation. 


ROMIK SOFTWARE 


PRESENT 


Rn a 
> u 
wo 


ET 
[FA REAL ACTION snoOr OF TE one 
HOT OF THE OAmE 
ML voyacnıe 
wo 
CHAMPIONS > 


Ms >2 
WÜcK GC 
SUiien ghot 
UXE JOYSTICK CONTROL S 
ER 


IA REAL ACTION SHO) 
wırı you BE THE SUPREME 
\worLo CHAMPION? 


WICOSOFT ® isti i 
Christian Widuch @ Nordstr. 22 @ 3443 Herlesha 
usen 


BEST POSSIBLE UnkrienSpec 
Asse, Boris, 
TASTE Engtisegat Auch x SPiere 
. nis, GET 
für den ZX-81 IK © von ya 
Das Bestmögliche für den IK ZX-81! ei 
30 Spiele auf einer Kassette! 
Horrorscope, Bad Spells, Der Führe 
Kick The Bucket, Horserace, Royal Flush, 
Funny Valentine, Pox, Dole, Stor 
wing Up, Life Support, Tumbling Dic 
ries, Find The Number, Reagan, Cry 
Ball, PS and QS, Genesis, God, Noahs Ark, 
Plagues, Goliath, Jonah, Merry Christmas, 
Lies ... 


Morris meetsthe DIRE RR) 


Neues vom WICOsorFr 


Präsentiert: 


Das AU TOMA AUKI td. Pro sSramm aus ngland, 
MATA U 
ram, England 


AUTOMATA U.K.LTD, THE CREATORS OF j% 
1 
Uncle Groucho PIMANJA € 
PRESENT THE COMPUTER 
für Spectrum 48K = ENTERTAINMENT WHERE } 


DREAMS COME TRUE! 


von den Pimania-Leuten. Mein Name 
ist Uncle Groucho, gewinnen Sie eine 
dicke Zigarre...... 
Der erste, der den bisher unbe- 
kannten Onkel Groucho korrekt I 
identifiziert, erhält als Belohnung eine 
Reise für 2 Personen nach Hollywood 
und zwar mit der Concorde ab 
London. 
Toll, was? 
Wie das legendäre Pimania-Pro- 
gramm, so ist auch das neue 
Adventure voller Gags und Über- 
raschungen. 
Auf der Rückseite wieder ein Song 
un "Lady eg The Piman u. 
erry mit der Gruppe Atric's”. & 2 
Ein Spitzenprogramm, das jeder HART Bu 
Piman-Fan haben muß! 


DM 19.50 


Morris meets the bikers 


für ZX-Spectrum 16/48K 
Piman in Aktion! Eine lus- 
tige Verfolgungsjagd von 
einer Ebene in die nächste. 
Der kleine Morris muß sich 
gegen die wilden Rocker 
behaupten um durch alle 
neun Etagen in die Freiheit 
zu gelangen. Ein weiteres 
friedfertiges Spiel für alle, 
die gerne fröhlich sind. 
Auf der Rückseite ein wei- 
terer original Piman-Song. 


DM 41,- 
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Bestellkarte 


Ich möchte CPU ab Heft Nr. zum günstigen 
Abonnementspreis von 55,- DM für 12 Ausgaben, monatlich ins Haus 
geliefert bekommen. 


Name/Vorname 


Straße PLZ Or 


Ich wünsche folgende Zahlungsweise (12 Hefte jährlich DM 55.— innerhalb der BRD, 
Ausland s. Impressum) 


Bargeldlos und bequem durch Bankeinzug: BLZ (vom Scheck abschreiben) 


Konto-Nr, Geldinstitut 


Gegen Rechnung 
(keine Vorauszahlung 


Datum/Unterschrift 


Diese Karte ausschneiden oder Fotokopieren und einsenden an umseitige Adresse. 
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Bestellkarte 


Ich möchte CPU und Homecomputer ab Heft Nr. zum günstigen 
Abonnementspreis von 100,- DM für 24 Ausgaben, vierzehntägig ins Haus 
geliefert bekommen. 


Name/Vorname 


Straße PLZ Ort 


Ich wünsche folgende Zahlungsweise (24 Hefte jährlich DM 100,- innerhalb der BRD, 
Ausland s. Impressum) 


BLZ (vom Scheck abschreiben) 


Bargeldlos und bequem durch Bankeinzug: 


Geldinstitut 


Konto-Nr. 


[] Gegen Rechnung 
(keine Vorauszahlung leisten) 


Datum/Unterschrift 


Diese Karte ausschneiden oder Fotokopieren und einsenden an umseitige Adresse. 
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RE EEIESSNERER enter en 
= Pr 
Garantie Garantie 
Wir senden Ihnen Bitte Wir senden Ihnen En 
un: frei an; rei 
Homecomputer regelmäßig ab BEER CPU regelmäßig ab machen 
der nächsterreichbaren der nächsterreichbaren 
Ausgabe zu. Ausgabe zu. 


puier, 


& acc. 


Die Lieferung erfolgt frei Haus = l Die Lieferung erfolgt frei Haus zu Mdsierhonung 
ustlgebühren. DRIELDMp vier ER . Leserservice 
Westring 59c 
j 
I 
I 
I 
I 
! 
ı 
I 
I 
I 
I 


Leserservice Postfach 620 
Sie können Ihr Homecomputer- Westring 59c Sie können Ihr CPU-Abbonne- 
Abbonnement jeweils 8 Wochen Postfach 620 ment jeweils 8 Wochen vor 3440 Eschwege 
vor Ablauf der 12-monatigen Ablauf der 12-monatigen 
Mindestbezugsdauer schriftlich 3440 Eschwege Mindestbezugsdauer schr 
kündigen. kündigen. 


Jumpin Jack 
für den VC-20 o. Erw 


Das beliebte Froschspiel in BEE 
Aufmachung. Ein Spiel = nicht nu 


Grüne. pm 45.50 


Adventure-Spiel f. VC-20 


(Speichererweiterung mind, 16K) 
ein Superspiel 


[Dermuchgesnarae] ° 
Der Bestseller 


Abenteuerspiel in deutscher Sprache. 
Finden Sie die verborgene Pyramide in der Wüste. 


DM 19.50 


ROMIK, SOFTWARE A 


MULTISOUND SYNTHESIZER 
für den VC-20 o.EmW. 


izer fü Computermu- 

thesizer für alle ; 
De Extrem flexibel. a Sr 

baren Musik- und a a 

4 zu kombinierende Grun n Ba 
2 voran: ft 

ierbare Musl 
les stärksten Programme von 


ROMIK. DM 39,50 


ROMIK SOFTWARE Ä 


PARTIEN RR, 


= 


= 
” 
u® 
A REAL ACTION Sm 


or TTTZ 
WILL vou BETEN 5 
SUPREME wor_p 


CHAMPION? 


ROMIK SOFTWARE 7x 


MODNS OF UUPITER 


v 
YOU CAN USE IK OK OR Jar nam 


x 8 


TAREAL ACTION SHOT OF TE GAME” 
WILL YOU BE THE 


SUPREME WORLD 
CHAMPION? 


ROMIK SOFTWARE & 


SHARK ATTREK 


“14; 


er 
IRHERLACHON SHOT HERAN 
"WILL YOU BE THE 
SUPREME WORLD 

CHAMPION? 


ZSGER MARTIAN RAIDER 


für den VC-20 o.Erw 
im Tiifug rast Dein Jet 
N und bekäm ie Stä 
Marsianer. Zerstörg e u 
pots, schieß die Ufos un 
en ab. Vorsicht vor den 
enn jeder könnte Dein letz 


sein 
DM 39.50 


Skramble 
ea 
Eine der be en 
hnell. Tolle Gr: 
dem Markt. Supersc ; 
er Guter Sound. Joystick oder Tasten 


bedienung. pm 39.50 


MOONS OF JUPITER für den 
VC-20 m.Erw. (3 8 0. 16K) 
Du bist Commander einer galaktischen 
Flotte. Während die Flotte das Mutter- 
schiff begleitet, sucht ein Raumschiff 
die Passage zwischen den Jupitermon- 
den. Riskante Ausweichmanöver sind 
nötig. Achte auf die Ufo der Gologs. Sie 
wollen Dich vernichten. 


DM 39.50 


SHARK ATTACK 
für den VC-20 o.Erw. 


Du schwimmst in dem von Haifischen 
wimmelnden Meer, nachdem Du aus 
dem Piratenschiff entkommen bist. 
Deine einzige Waffe ist ein Netz, wel- 
ches Du hinter Dir herziehst und mit 
dem Du die Haie fangen kannst. 

Hüte Dich anzuhalten. Die Haie lauern 


gierig auf Dich. 
DM 39.50 


KATALOG ANFORDERN (Schutzgebühr 3,- DM) 


WICOSOFT * Nordstraße 22 * 3443 Herleshausen * Tel. 056 54-6182 


Bitte benutzen Sie Bestellkarte im Innenteil des Heftes! 


Commodore 64 
ZX Spectrum 48K Katal 
Oric-1 =” anfordern (Schutzgebüh 
r 3.- DM) 


The Hobbit für den ZX Spectrum 48K 


Tarzan fü 
Das neue Superadventure. Herrliche Grafik. Großer Befehlssatz. Ei al ür den 2X Spectrum 16& 
Ein Meilenstein der Microcomputersoftware. Dazu das Hobbit- a LINSE Tarzan muß Jane befreien. N ä 
Taschenbuch (in englischer Sprache). Tolle Grafik, teen behindert. Happy-End am Schluß? 
DM 78.- . Ohne Joystick gut spielbar. 
DM 25.-- 
JEDE MENGE NEUE SPIELE 


für Spectrum 48k: 


Adventurer's Nightmare (Abenteurers Alptraum) 
Freie Tastenwahl. Deutsche Spielanleitung im Programm. Fünf 
Nächte müssen in der Spukhöhle verbracht werden. Es gilt, Gold 
und Leben vor Gespenstern, Vampiren, Energiespindeln, Skeletten 
und Mörderspinnen zu verteidigen. Sehr schnell! 

DM 32.00 


Superschnelles Arcade- Sp das die 
voll ausnutzt. Wer en eı ; 
Sn besitzt, sollte auf dieseS Spiel 


nicht verzichten. ie 
Schatzsuche im Irrgarten Mm 37. 
Maschinensprache. Deutsche Spielanleitung im Programm. Fin- 
den Sie in der obersten Reihe den Geheimmechanismus, damit die 
Urne sichtbar wird! Die ersten Urnen sind problemlos zu finden, 
aber dann ... Zeit, fallende Steine und Monster sind gegen Sie! 


DM 32.00 


Flipper 

Deutsche Anleitung im Programm. Freie Tastenwahl. Flippern wie 
in der Kneipe um die Ecke! Drei Geschwindigkeiten. Bis zu vier 
Spieler spielen je drei Bälle! Sehr schnell! 


Colour Clash 
für Spectrum 16/48 K 


DM 32.00 füllen Sie die Felder mit dem magi- 
schen Pinsel aus und lassen Sie sich 
Spectrum 16k: nicht von den bösen Geistern erwi- 
schen. 100% Masch.code, sehr unter- 
Teufels-Fahrer haltsam. 
Deutsche Anleitung im Programm. Weichen Sie dem entgegen- ; | 
kommenden Gespenst aus, indem Sie rechtzeitig die Spur wech- a nenuacman snoror me zamı n DM 35.00 
seln. Rasend schnell! 10 verschiedene Geschwindigkeiten. WiLL YOU BE THE SUPREME 
WORLD CHAMPION? 
DM 32.00 


HÄNDLERANFRAGEN ERWÜNSCH 
T 
SOFTWARE-AUTOREN GESUCHT, INFO ANFORDERN 


WI 
COSOFT * Nordstraße 22 * 3443 Herleshausen * Tel. 056 54 - 6182 


Bitte benutzen Sie Bestellkarte im Innenteil des Heftes! 


